Напишите программу в паскале abc, которую вводим последовательность целых чисел заканчивающуюся нулем и определяет верно ли что введеные элементы чередуют знаки, например (2, -2, 3, -3, 4, -4, 5, -5: да знаки чередуются) Не используя масивов. Либо объясните алгоритм действий
Program lol(input, output);var b, a, a1:integer;begina:=1;b:=0;a1:=-1;repeatbeginread (a);if (a/((-1)*a))=(a1/a1) thenb:=b+1;if a=0 then break;read (a1);if a <> (-1)*a1 thenb:=b+1;enduntil (a=0) or (a1=0);if b>1 thenwriteln (Последовательность не верна)elsewriteln (Последовательность верна);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
