1. Напишите на языке Паскаль программу вычисления у по формуле: y = sin²(x) + 5, где х - числото. 2. Перепишите программу на языке Гіаскаль, исправив ошибки: Program primer Var a,b: integer; Begin ; ReadLn( a,b); s=a+b; m:=a*b; d:=a:b; WriteLn(s); WriteLn(m); WriteLn(d) End

Задание 1:

Для решения первого задания необходимо написать программу на языке Паскаль, которая будет вычислять значение выражения y = sin²(x) + 5, где x - целое число.

program calculateY;
var
  x: integer;
  y: real;
begin
  writeln('Введите целое число x:');
  readln(x);
  y := sqr(sin(x)) + 5;
  writeln('y = ', y:0:2);
end.

Задание 2:

Во втором задании необходимо исправить ошибки в предоставленной программе на языке Паскаль.

Исходный код с ошибками:

Program primer
Var a,b: integer;
Begin ;
ReadLn( a,b);
s=a+b;
m:=a*b;
d:=a:b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End

Исправленный код:

Program primer;
Var a, b, s, m, d: integer;
Begin
  ReadLn(a, b);
  s := a + b;
  m := a * b;
  d := a div b;
  WriteLn(s);
  WriteLn(m);
  WriteLn(d);
End.

Ответ: Программы на языке Паскаль для обоих заданий предоставлены выше.