Предмет: Информатика, автор: vika111192

Проверить и в случае ошибки исправить программу вычисления функции на языке PASKAL

Приложения:

Ответы

Автор ответа: hello93
0

uses crt;

var

 x, y : real;

begin

 writeln('Введите х');

 read(x);

 if x<=4 then  

   y:=x*x*x-2

 else if x>=6 then

   y:=40-x

 else  

   y:=x*x;

 writeln('y= ',y);

end.


Приложения:

vika111192: а не посмотрите еще? https://znanija.com/task/31370174 и https://znanija.com/task/31370213 + блок схемы
Похожие вопросы
Предмет: Литература, автор: lada0522
Предмет: Музыка, автор: vdrrekkkop
Предмет: Математика, автор: Veronikanikitina