Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад