Паскаль вводится последовательность из n целых чисел. определить, содержит ли последовательность хотя бы два равных соседних числа (a_i=a_(i+1)) (без массива)
Var a,i,x1,x2,S:integer; begin S:=0; x1:=0; a:=1; While (a<>0) do begin Writeln('Vvodite elementi stroki , po okonchanii vvedi 0 ') ; readln(a); x2:=x1; x1:=a; if (x2=x1) then S:=1; end; if (S=1) then Writeln('sushestvyet') else Writeln('ne sushestvyet'); end.
Для того, чтоб не запутаться : х-длина куска ткани; у-его ширина; S-площадь ткани, которая получится при вводе длины и ширины ткани; с-цена , которую вы должны получить; Не пугайтесь, если при цене будет вылетать число*В, т.к. изначально В-данная цена за 1м^2 Приступаем 1) блок-схема (фото) 2) программа Program (название); uses crt; var B,x,y,S,c:real; begin writeln('введите длину ткани='); readln(x); writeln('введите ширину ткани='); readln(y); S:=x*y; c:=S*B; writeln('цена за кусок ткани=',c); end. 3) мат S=x*y и c(цена)=в(данная цена за 1 м^2)*S
begin
S:=0;
x1:=0;
a:=1;
While (a<>0) do
begin
Writeln('Vvodite elementi stroki , po okonchanii vvedi 0 ') ;
readln(a);
x2:=x1;
x1:=a;
if (x2=x1) then
S:=1;
end;
if (S=1) then
Writeln('sushestvyet')
else
Writeln('ne sushestvyet');
end.