// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
for var i := 1 to 10 do
Writeln(i, ') y = ', sqrt(i));
end.
Var a,a1,a2,a3,a4;
begin
read (a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a div 10 mod 10;
a4:=a mod 10;
a:=a4*1000+a2*100+a3*10+a1;
write (a);
<span>end.</span>
Смотрите вложение
смотрите вложение
смотрите вложение
смотрите вложение
,a,*,b,
Непонятно, зачем тут a и b присваивают значение, возможно обманочка
write(a) - выведет 2
write('a') - выведет букву a