//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
Var n, s : integer;
begin
s := 0;
while 2 * 2 <> 5 do begin
readln(n);
if n < 0 then break;
if n > 100 then s := s + 1;
end;
writeln(s);
end.
VAR
n,max:LongInt;
BEGIN
WriteLn('Введите трехзначное число:');
ReadLn(n);
max:=0;
Repeat
If (n mod 100)>max then max:=(n mod 100);
n:=n div 100;
Until n=0;
WriteLn('Самое большое число в трехзначном числе: ',max);
Readln;
END.