Const
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.
Var number:integer;
digit:integer;
res:boolean;
begin
readln(number);
digit:=number mod 10;
number:=number div 10;
res:=true;
while number>0 do begin
if digit<>number mod 10 then begin
res:=false;
break;
end;
number:=number div 10;
end;
if res then writeln('Верно') else writeln('Неверно');
end.
16 разрядное поставь лайк пж
Msk.psu.ivanov; msk.psu.petrov;
msk.pstu.sidorov; msk.pstu.popov;
msk.ipkro.s102; msk.ipkro.s108; msk.ipkro.s11