Помогите решить пожалуйста желательно ПаскелемНапишите программу, которая в...

Question

Помогите решить пожалуйста желательно Паскелем


Напишите программу, которая в последовательности натуральных чиселопределяет количество всех чётных чисел, кратных 5. Программа получаетна вход натуральные числа, количество введённых чисел неизвестно,последовательность чисел заканчивается числом 0 (0 – признак окончанияввода, не входит в последовательность). Количество чисел не превышает1000. Введённые числа не превышают 30 000.Программа должна вывести одно число: количество всех чётных чисел,кратных 5.

---

---

Answer 1

Пожалуйста
var x,m:integer;
begin
m:=0;
x:=-1;
while (x<>0) do
begin
readln(x);
if (x<>0)and(x mod 2=0) and(x mod 5=0) then m:=m+1;
end;
writeln(m);
end.

Comments

пишет ожидание индефикатора

---

http://savepic.org/4641602.jpg

---

у вас pascalabc.net или турбо паскаль?

---

то что у тебя

---

http://savepic.org/4616002.png

---

попробуй так

---

program pas;
var x,m:integer;
begin
m:=0;
x:=-1;
while (x<>0) do
begin
readln(x);
if (x<>0)and(x mod 2=0) and(x mod 5=0) then m:=m+1;
end;
writeln(m);
end.

---

спс

---

заработало?

---

да тока с этим что делать Количество чисел не превышает1000. Введённые числа не превышают 30 000.Программа должна вывести одно число: количество всех чётных чисел,кратных 5.