Написать программу на Паскале: Среди 10 целых чисел вычислить сумму трехзначных чисел, кратных 4
Написать программу на Паскале: Среди 10 целых чисел вычислить сумму трехзначных чисел, кратных 4
Гость
Ответ(ы) на вопрос:
Гостьprogram summa;
uses crt;
var
n,summ,I:integer;
begin
summ:=0;
for I:=1 to 10 do begin
read (n);
if ((n >=100) and (n <=999)) and (n mod 4 = 0) then summ:=summ+n end;
writeln (summ);
end.
Не нашли ответ?
Похожие вопросы