Question

Написать программы по информатике 8 класс.
Язык Паскаль.
(Срочно)

Answer 1

1:

var x:integer;

   y:real;

begin

   write('Введите x: '); readln(x);

   if x < 3 then write('y = ', (2.5*x-4):0:2);

   if x > 3 then write('y = ', 25*sqr(x)+2);

end.

2:

var a:integer;

begin

   write('Введите a: '); readln(a);

   write('s = ', (sqr(a)+3)/4:0:2);

end.