Написать программу: найти сумму четных и нечетных n-чисел
Написать программу: найти сумму четных и нечетных n-чисел
Гость
Ответ(ы) на вопрос:
Гостьprogram zzz;
var a, b, n, i, ss, s : integer;
begin
WRITELN ( ' введите количество чисел' );
readln (n);
s := 0;
ss := 0;
For i := 1 to n do
begin
if i mod 2 =0 then
s:= s+i
else
ss := ss + i;
end;
WRITELN ( 'Сумма четных чисел равна ',s );
WRITELN ( 'Сумма нечетных числе равна ' , ss);
end.
Не нашли ответ?
Похожие вопросы