Виводяться 7 цілих чисел з клавіатури. знайти суму чисел кратних 3.выводятся 7 целых чисел с клавиатуры. найти сумму чисел кратных 3.написать программный код
DanyaHD
3
03.05.2019 00:04
0
Другие вопросы по теме Информатика
crisisd
10.08.2019 12:00
Dawy01
14.11.2020 18:42
AnyMay00853
14.11.2020 18:42
sasasnikas
14.11.2020 18:40
БЕКА200420042004
22.01.2022 03:40
Sharedes
06.09.2020 07:19
Популярные вопросы
- Известно что a b.поставьте вместо многоточия знак или чтобы получилось верное...
3 - Напишите сочинение про осень.обязательно используйте отглагольные прилагательные.одиночные...
3 - Написать рассказ на тему моя собака.для 2 класса...
1 - При каком основании число 16 имеет логарифм 4 =)не знаю только пришел в технарь...
3 - Составьте структурные формулы а) углеводорода пентана с5н12, б)сероводорода,...
3 - Анель решила @ ,а асель в два раза больше.сколько решили девочки вместе?...
1 - Какие свойства характерны для водной среды обитания...
2 - Будь-ласка складіть 3 речення з дієприслівниквим ! 20 і!...
1 - Fe2(so4)3 какая это соль? основная кислая средняя или двойная...
3 - Через первую трубу бассейн можно наполнить за 4 часа, через вторую трубу за...
2
var n, i, sum: integer;
begin
sum:=0;
i:=1;
repeat
write('Введите ', i, '-e число: ');
readln(n);
i += 1;
if n mod 3 = 0 then
sum += n;
until i > 7;
writeln('Сумма кратных 3-м: ', sum);
end.