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

0 голосов
16 просмотров

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


image

Информатика (654k баллов) | 16 просмотров
0

Язык программирования?

Дан 1 ответ
0 голосов

Ответ:

[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.

(190 баллов)