Дана последовательность чисел, заканчивающаяся нулем (ноль - признак окончания ввода). напишите программу, которая находит сумму чисел, кратных 6 и заканчивающихся на 4. пример ввод вывод 1 24 78 3 54 0
kushkulina2011
3
22.08.2019 10:10
9
Другие вопросы по теме Информатика
Mafg
08.02.2021 10:13
MUSHDAN
08.02.2021 10:13
Fedotaq
08.02.2021 10:12
zitzcool
18.09.2020 13:54
Изумруд444
19.05.2019 04:20
nastya84756
14.02.2021 09:52
zepp1
14.02.2021 09:55
Популярные вопросы
- Права магнатів за Люблінської унії. ...
3 - [5] 3. Отёните в утреннее положенне Казахского ханства в XVIII веке иОхарактеризуйте...
3 - Рассказ от имени земледельца история 5 класс...
2 - Написать структурную формулу 2,6-диетилон-3-ен...
2 - 600:40 в столбик. :3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3 ...
2 - Put the words in the correct order to make sentences. ...
3 - Выпиши три словосочетания Из предложения и выполните их разбор глагол+существительное...
2 - Используя Пкзн определите 1) высоту и азимут Большой медведицы 10 октября в 21:002)...
3 - Можете и могу отправлять текст...
2 - Пусть P(x,y): x-родитель у. Выразите высказывания на естественном языке: a) azP(x,z)ЛР(Е.у);...
1
var a,sum: integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=4) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
begin
s:=0;
readln(i);
while i<>0 do
begin
if (i mod 6=0) and (i mod 10=4) then
s:=s+i;
readln(i);
end;
writeln(s);
end.