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

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

Задать свой вопрос
1 ответ

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('Сумма всех чисел кратных 5 в спектре от ',a,' до ',b,' равна ',c);

end.

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

Ашурбейли Эльвира
помогите мне тоже, пожалуйста
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт