Напишите программу, которая находит частное (суммы всех четных чисел) / (Разность всех нечетных чисел), записанных в файле в столбик, и выводит результат в другой файл.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
// PascalABC.NET
begin
var (se, so) := (0, 0);
foreach var s in ReadLines('input.txt') do
begin
var t := s.ToInteger;
if t.IsEven then
se += t
else
so += t
end;
WriteAllText('output.txt', (se / so).ToString)
end.