Question

Напишите программу, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет, верно ли, что все знаки элементов этой последовательности чередуются

Answer 1

Ответ:

var

 a: integer;

 t,s: boolean;

begin

 t := true;

 read(a);

 s := a > 0;

 if a <> 0 then

 read(a);

 while t and (a <> 0) do

 begin

 t := (a > 0) <> s;

 s := not s;

 read(a)

 end;

 writeln(t)

end.

Понятно?)