Напишите программу в среде программирования турбо паскаль, которая в последовательности натуральных чисел вычисляет сумму всех однозначных чисел, кратных 3. программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число: сумму всех однозначных чисел, кратных 3.
RomanReigns2000
1
07.06.2019 09:00
0
Другие вопросы по теме Информатика
jul45
16.08.2019 19:40
vlad016263624524677
16.08.2019 19:40
Андрей11112222
27.03.2020 14:56
kurilen
27.03.2020 14:56
alkamilk
27.03.2020 14:57
Светик1111прод
27.03.2020 14:57
катя072
10.09.2019 07:10
2007628475626
10.09.2019 07:10
Arisha5554
10.09.2019 07:10
Популярные вопросы
- 1)на каком расстоянии от радиолокатора находится объект , если излученный импульс...
2 - Как разложить на простые числа 1452,1980,3960,2295,35100...
2 - :турист за 1 день 18 км что составляет шесть пятых пути, который он должен...
1 - Два пешехода вышли одновременно навстречу друг другу из двух разных поселков...
2 - Коля купил в буфете 3 пакетика ирисок.витя 2 пакетика ириса.когда в буфет пришол...
3 - По памяти цитату из стихотворения об осени...
3 - Купил 5кг. 600 гр. сахара . израсходовал 7/8 всего сахара. сколько ушло сахара...
1 - Рассчитайте: массовую долю каждого элемента в сульфате меди (11) cuso4....
1 - Составте слова с суффиксом няк. зарание...
2 - Разберите по морфологическому разбору глаголы - спешите, поужинает. нужно...
3
begin
repeat
readln(n);
if (n mod 3=0) and (n<10) then s:=s+n;
until n=0;
writeln('S=',s);
end.