Ответы
Ответ дал:
0
var
i, s: integer;
begin
for i := 1 to 50 do {цикл от 1 до 50}
if (i mod 2 = 0) {если число при делении на 2 не имеет остатка, то оно четное}
then s := s + i; {и это число включается в сумму}
writeln('Сумма четных чисел=', s); {вывод суммы}
end.
i, s: integer;
begin
for i := 1 to 50 do {цикл от 1 до 50}
if (i mod 2 = 0) {если число при делении на 2 не имеет остатка, то оно четное}
then s := s + i; {и это число включается в сумму}
writeln('Сумма четных чисел=', s); {вывод суммы}
end.
Приложения:
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад