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

Составить программку для подсчета суммы всех естественных чисел кратных 3 в промежутке от a до b.Значение a и b задаются юзером.
(Пример работы программки: a=10; b=16. Их сумма 27)

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

P.S программка написана для Pascal.

program summa;

var  

 a, b, s : integer;

begin

 writeln('Введите число a=');

 read(a);

 writeln('Введите число b=');

 read(b);

 s:=0;

for a:=a to b do  

 if a mod 3=0 then  

   s:=s+a;

 writeln('Сумма: ',s);

end.  


, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт