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

Question

Информатика

Ионич

2 августа, 10:53

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

+4

Ответы (1)

Знаете ответ на вопрос?

Олимпия · 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.