Лукиан 27 ноября 2019 в 12:15
Напишите программу в паскале abc, которую вводим последовательность целых чисел заканчивающуюся нулем и определяет верно ли что введеные элементы чередуют знаки, например (2, -2, 3, -3, 4, -4, 5, -5: да знаки чередуются) Не используя масивов. Либо объясните алгоритм действий
Напишите программу в паскале abc, которую вводим последовательность целых чисел заканчивающуюся нулем и определяет верно ли что введеные элементы чередуют знаки, например (2, -2, 3, -3, 4, -4, 5, -5: да знаки чередуются) Не используя масивов. Либо объясните алгоритм действий
Program lol(input, output);
var b, a, a1:integer;
begin
a:=1;
b:=0;
a1:=-1;
repeat
begin
read (a);
if (a/((-1)*a))=(a1/a1) then
b:=b+1;
if a=0 then break;
read (a1);
if a lt;gt; (-1)*a1 then
b:=b+1;
end
until (a=0) or (a1=0);
if bgt;1 then
writeln (Последовательность не верна)
else
writeln (Последовательность верна);
end.
Компьютеры и вычисления
266
0
Для комментирования необходимо зарегистрироваться на сайте