Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся клавиатуры)
More Questions From This User See All
Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся клавиатуры)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var A,B,i,sum:integer;
begin
read(A,B);
sum:=0;
for i:=A to B do
if i mod 4 = 0 then sum:=sum+i;
writeln(sum);
end.
Вопросы в ЛС