Программа ** Pascal: Вводятся целые числа. Признак конца - ввод числа 0. Определить,...

Question

Программа на Pascal:

Вводятся целые числа. Признак конца - ввод числа 0. Определить, сколько двузначных четных чисел, оканчивающихся на 2, расположено между 2-ым и 5-ым числами

Помогите пожалуйста !

Answer 1

Var
   A,B,i:integer;
   k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then<br>   Begin
   B:=Abs(A);
   if (9   End;
Until (A = 0)or(i>=5);
if A<>0 then
   Repeat
   Read(A);
   Until A = 0;
WriteLn(k)
End.

Comments

Премного вам благодарен !