каждний пассажир ждал поезд 2 часа
Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (abs(a) mod 5=0)or(abs(a) mod 9=0)
then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
15
91
90
0
k = 2
Писать можно было и на пергаменте. Да и вообще, коварные китайцы изобрели бумагу и нихотели делится ею со всем миром. Напоминяет историю с шолком, его технологию китайцы тоже долго хранилили в строжайшей тайне.