Var
x, y: real;
begin
write('Введите число X: ');
readln(x);
if x >= 0 then begin
y := sqrt(x) + 3;
writeln('y = ', y);
end
else writeln('Решения нет, X - отрицательное');
end.
Да это хорошая идея, потому что Иван экономит деньги и электричество.
<span>Множество символов кодовой таблицы ASCII. Каждому символу приписывается целое число в диапазоне от 0 до 255.</span>
===== PascalABC.NET =====
begin
var F: real-> real := n -> Sqrt(n) + n;
F(ReadReal('n =')).Println
end.
Вернутся обратно или отменить