Найти сумму целых положительных чисел из промежутка от А до B, кратных 4. - Pascal ABC

Формулировка задачи:

Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

Код к задаче: «Найти сумму целых положительных чисел из промежутка от А до B, кратных 4. - Pascal ABC»

textual
program R; 
var a,b,i,summ:integer;
begin
Writeln('Введите А и В');
readln(a,b);
for i:=a to b do
if i mod 4 = 0 then summ:=summ+i;
Writeln('Сумма = ',summ);
readln
end.

10   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ