Регистрация
raremani
17.04.2021 21:20
Информатика
Есть ответ 👍

Ввести число.если оно неотрицательное,вычесть из него 50,в противном случае прибавить к нему 100

221
285
Посмотреть ответы 2

Ответы на вопрос:

ziksharof
ziksharof
4,7(93 оценок)
Если тебе нужен код, то вот он:   var        x : real;   begin        write('x = '); readln(x);         if x > 0              then                        x : = x - 50              else                        x : = x + 100;           writeln('result : x = ',x: 0: 2);   end.
anyamaleva97
anyamaleva97
4,4(54 оценок)

первые два вчера писал:  

 

в третьем не уверен в самом

 

var

  a, b, x, y, z : real;

begin

  read (a, b, c, x, y);

  if ((a < = x) and (b < = y)) or ((a < = y) and (b < = x))

  or  ((a < = x) and (b < = z)) or ((a < = z) and (b < = x))

  or  ((a < = z) and (b < = y)) or ((a < = y) and (b < = z)) then writeln ('yes') else writeln ('no');

end.

Популярно: Информатика