Pascal!! вычислить сумму целых чисел кратных 4 в интервале от 0 до 200
Pascal!!
вычислить сумму целых чисел кратных 4 в интервале от 0 до 200
Гость
Ответ(ы) на вопрос:
Гостьprogram main;
var s,i:integer;
begin
for i:=0 to 200 do
if i mod 4=0 then
s:=s+i;
writeln('Сумма чисел кратных 4 - ', s);
readln;
end.
Не нашли ответ?
Похожие вопросы