Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Ноя

Сумма чисел кратных трем

Posted by obzor under Delphi

Ввести восемь чисел и вычислить сумму чисел кратных трем.

Dvoishnik

var sum,i,a:integer;
begin
sum:=0;
For I:=1 to 8 do
Begin
Writeln('vvedite chislo');
ReadLn(a);
if (a mod 3) = 0 then
	sum:=sum+a;
end;
Writeln('summa = 'sum);	
readln;
end.

тема на форуме

Похожие статьи

Теги: Pascal

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: