Составить прогамму, нахождения суммы всех натуральных чисел из диапазона от а до в , включая а и в , кратных 5 (а и в вводятся с клавиатуры)

ivasil2012 ivasil2012    1   24.04.2019 16:20    2

Ответы
катяшакотик катяшакотик  08.06.2020 18:58

program raf105;

var a,b,c,i:integer;

begin

write('Введите 2 числа A и B: ');

readln(a,b);

for i:=a to b do

if (i mod 5)=0

 then c:= c+i;

writeln('Сумма всех чисел кратных пяти в диапазоне от ',a,' до ',b,' равна ',c);

end.

Язык программирования PascalABC

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика