Var
a:integer;
begin
writeln('a ?');
readln(a);
if (a mod 10)=(a div 100) then
writeln('Yes')
else
writeln('N');
end.
Var t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<25 do
begin
n:=n*2;
writeln(t,n:6);
t:=t+3;
end;
readln;
<span>end.</span>
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите коэффициенты a и b:');
Write('Корень уравнения равен ', -b / a:0:3)
end.
(X<4)&(X>2)&(X≠2)
<span>a)X=1 b)X=2 c)X=3 d)X=4
</span><span>ответ
c)X=3</span>