Написать программу в pascal которая считывает сумму всех кратных чисел от a до b

Samuel11 Samuel11    3   21.09.2019 03:40    1

Ответы
VeronikaShubin VeronikaShubin  08.10.2020 06:12
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика