Написать программу в pascal которая считывает сумму всех кратных чисел от A до B
vladxxxx4:
Чисел кратных чему??
Ответы
Ответ дал:
2
var a,b,i,kratnoe,n,s:int64;
begin
read (a,b,kratnoe);
s:=0;
for i:=a to b do
if (i mod kratnoe=0) then s:=s+i;
write(s);
end.
begin
read (a,b,kratnoe);
s:=0;
for i:=a to b do
if (i mod kratnoe=0) then s:=s+i;
write(s);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
1 год назад
2 года назад