Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками

@maks.runner · Регистрация: 29.06.2011

Не могу найти ошибку в программе!!!
Условие: вводится последовательность ненулевых чисел, 0- ее конец. Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками.

Pascal

var n, n1, n2:real;
pr:boolean;
begin
pr:=false;
write('n='); readln(n1);
write('n=');readln(n2);
repeat
if n1*n2>0 then
pr:=true;
write('n='); readln(n2);
until n2=0;
if pr then
writeln(' Последовательность содержит рядом стоящие элементы с одинаковыми знаками')
else writeln('Последовательность не содержит рядом стоящие элементы с одинаковыми знаками');
readln;
end.

@Puporev · 03.07.2011, 17:26

Pascal

repeat
if n1*n2>0 then
pr:=true;
n1:=n2;//добавь
write('n='); readln(n2);
until n2=0;

Опции темы