Предмет: Информатика,
автор: shabdasha
Составьте программу вычисляющую сумму S=2+4+6...+20
В Pascal, пожалуйста
Ответы
Автор ответа:
1
program summa;
var
s, i: integer;
begin
for i := 2 to 20 do
if i mod 2 = 0 then
S := S + i;
writeln('Сумма = ',s);
end.
Интересные вопросы
Предмет: Математика,
автор: arutun6926
Предмет: Биология,
автор: Iluminatoooor5617
Предмет: Астрономия,
автор: Valikf4803
Предмет: Литература,
автор: Аноним
Предмет: Информатика,
автор: dianakaplyn