Склавиатуры вводится последовательность чисел,оканчивающаяся нулём.определить количество чисел,кратных 5,во введенной последовательности.
niki1232018ovv1ej
2
01.10.2019 15:40
1
Другие вопросы по теме Информатика
Jubile
29.10.2020 12:23
maks123321456
29.10.2020 12:23
markkolk77R
14.04.2021 08:56
tanea201111
19.10.2021 20:54
Ясныйпень
19.10.2021 20:47
ksu2407
29.07.2021 17:13
dias2266
29.07.2021 17:13
strashilev
29.07.2021 17:16
Популярные вопросы
- Кому из героев пренадлежат эти вещи? а) через базарную площадь идёт...
2 - Каков общий, страховой и непрерывный стаж работы фролова, если известно,...
3 - Как автор относиться к разговору гаранжи и мелихова?...
3 - Проведите опыт поставьте в воду, подкрашенную красными чернилами, молодой...
3 - Это цыкл,у которого вначале стоит условие цыкла или тело цыкла,а затем...
2 - 1.who is william shakespeare? 2.how long did he live in all? 3.what...
1 - Определите значимость кюев, легенд, шежире и эпосов, как источников....
3 - Над каждым словом напишите какой частью речи оно является запишите...
2 - Знайдіть область визначення функції y=3/x²-7x...
3 - Каким вам представляется лирический герой стихотворения ,,и скучно,игрустно...
2
var i,k,x:integer;
begin
i:=0;
x:=1;
while x<>0 do
begin
read(x);
if (x mod 5=0)and(x<>0) then k:=k+1;
end;
writeln('Количество чисел кратных 5= ',k);
end.