Malorius
5 год назад
PASCAL ABC: Составьте программу вычисления суммы четных чисел в диапазоне от 1 до 100
ОТВЕТЫ
Нектарий
Aug 9, 2019
Var I,s:integer;
begin
s:=0; //сумматор обнуляем обязательно
for i:=1 to 100 do
if i mod 2=0 then s:=s+i; //узнаем четное ли число и записываем его в нашу сумму
writeln(Сумма четных чисел равна ,s);
end;
все что после // (два слэша) можно удалить, так пишутся комментарии в программе
begin
s:=0; //сумматор обнуляем обязательно
for i:=1 to 100 do
if i mod 2=0 then s:=s+i; //узнаем четное ли число и записываем его в нашу сумму
writeln(Сумма четных чисел равна ,s);
end;
все что после // (два слэша) можно удалить, так пишутся комментарии в программе
223
Смежные вопросы:
