отыскать и вывести на печать сумму всех натуральных чисел из промежутка

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

Задать свой вопрос
1 ответ
Var a,b,s,i:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
s:=0; 
for i:=a to b do
 if (i mod 3 = 0) and (i mod 5 = 0) then s:=s+i;
writeln('s = ',s);
end. 

Пример:
a = 4
b = 40
s = 45
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт