Question

СРОЧНО ПОМОГИТЕ ДАЮ 81 БАЛЛ!!!!!!!

Answer 1

Ответ:

[1]

var x: integer; y: real;

begin

   readln(x);

   if x = 2 then writeln('Введенное число не может быть равно 2')

   else y := (2.7 + x) / (x - 2);

   writeln(y);

end.

[2]

var j, s: integer;

begin

   s := 0;

   for j := 4 to 24 do

       s := s + j;  

   writeln(s);

end.