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

Ответы:

Юрий Кошелев

19-11-2012 07:24

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.

Также наши пользователи интересуются:

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

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!