Феклист
5 год назад
Пожалуйста посчитайте пожалуйста работа с паскалемНайти сумму целых положительных чисел из промежутка от А до В, кратных 4. Значения А и В вводятся с клавиатуры.
ОТВЕТЫ
Mihej
Oct 24, 2020
var a,b,s,i:integer;
begin
writeln('a, b:');
readln(a,b);
s:=0;
for i:=a to b do
if i mod 4=0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
a, b:
20 100
s = 1260
begin
writeln('a, b:');
readln(a,b);
s:=0;
for i:=a to b do
if i mod 4=0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
a, b:
20 100
s = 1260
599
Смежные вопросы:
