// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
for var i := 1 to 10 do
Writeln(i, ') y = ', sqrt(i));
end.
Чтобы передавать информацию разного рода между удаленными устройствами связи
12 способами можно составить 2 танцевальные пары
------------------------------------
| X X |
| |
| X |
| |
| |
| X X |
------------------------------------
X - это стулья.
//Pascal ABC.NET v3.1 сборка 1219
Var
y,x:real;
begin
readln(x);
if x<=0 then
begin
writeln('Выход за пределы ОДЗ');
exit;
end;
y:=power(x,3)-(sqr(x)-x+3)/sqrt(x);
writeln('y=',y);
end.
Пример ввода:
1.2
Пример вывода:
y=-1.2297018105279