Составьте пожалуйста программу .
Приложения:
Ответы на вопрос
Ответил WhiteQuartz
1
program lol_kek_4ebyrek;
var x:integer;
y:real;
begin
write('Введите x: ');
readln(x);
if x <= 3 then
begin
y:= x*x - 3*x + 3;
end;
if x > 3 then
begin
y:= 1/(x*x) + 6;
end;
writeln('При x=',x,' y=',y);
end.
var x:integer;
y:real;
begin
write('Введите x: ');
readln(x);
if x <= 3 then
begin
y:= x*x - 3*x + 3;
end;
if x > 3 then
begin
y:= 1/(x*x) + 6;
end;
writeln('При x=',x,' y=',y);
end.
Новые вопросы