Написать программу в Паскале. Подсчитать сумму четных целых чисел находящихся от одного до значения введенного пользователем

Question

Информатика

Вестита

7 апреля, 08:34

Написать программу в Паскале. Подсчитать сумму четных целых чисел находящихся от одного до значения введенного пользователем

+1

Ответы (1)

Знаете ответ на вопрос?

Кирилич · Answer 1

Program summa;

uses crt;

var a, s, m, i:integer;

begin

clrscr;

read (i) ;

s:=0;

while i0 do begin

m:=a mod 10;

s:=s+m;

a:=a mod 10;

a:=i+s; end;

write ('s=', s) ;

end.