Предмет: Информатика,
автор: Михандер
Задача: Напечатать и подсчитать сумму всех четных чисел от 10 до 30.
Ответы
Автор ответа:
0
10,12.14,16,18,20,22,24,26,28,30:общее количество 11
Автор ответа:
0
var
sum,i: integer;
begin
write('Чётные числа от 10 до 30: ');
for i:= 10 to 30 do
if i mod 2 = 0 then
begin
write(i:4);
sum:=sum+i;
end;
writeln;
writeln('Их сумма = ',sum);
end.
sum,i: integer;
begin
write('Чётные числа от 10 до 30: ');
for i:= 10 to 30 do
if i mod 2 = 0 then
begin
write(i:4);
sum:=sum+i;
end;
writeln;
writeln('Их сумма = ',sum);
end.
Интересные вопросы
Предмет: Английский язык,
автор: pazychkat46
Предмет: Геометрия,
автор: demidenkoviktor79
Предмет: Биология,
автор: kipkeevpajzana
Предмет: Литература,
автор: брандашмыг
Предмет: Геометрия,
автор: Аноним