Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите ,пожалуйста ,решить систему уравнений в программе паскаль!!!!

Ответ оставил Гость

Первая:
uses Crt;
var x, y: integer;
begin
 ClrScr;
 Write( x = );  ReadLn(x);
 if x<5  then y:=x+3
         else y:=x*x;
 WriteLn( y = , y);
 ReadLn;
end.



Ну и вторая задача решается совершенно аналогично!
Попробуй по программе, приведенной выше. Больше пользы тебе....