Перевести на Пайтон var x,y:intrger;

begin

readln(x);

if x>0 then

y:=x+100

else if x=0 then
y:=20
else if x<0 then

y:sqr(x);

writeln(y);
end.​

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

• 

  Небатан1542

  18.09.2020 19:36
  Создания пк как можно больше (желательно 8 листов) ! 18...
• 

  aArisha2772

  15.10.2022 14:03
  Решить с 63-60. 64 и 59 уже решил. можете просто ответ написать. я сам все распишу...
• 

  Brandy2005

  13.04.2022 18:37
  1. Что такое компьютер? A. Устройство для обработки аналоговых сигналов. B. Устройство...
• 

  egornikitin10

  24.04.2020 18:48
  Напишите наибольшее число x для которого истинно высказывание (x 25) и не (x длиться...
• 

  ruana2005

  22.01.2023 07:27
  Запишите десятичное число 310 в беззнаковом 16-разрядном формате Можно без пояснений...
• 

  gashuna

  24.12.2022 20:56
  Составить из цифр правильный айпи адрес a) 3212 б )21 в)2.12 г)4 а)72 б) 5 в 102...
• 

  dimatripolskiy

  21.10.2021 01:08
  1. найти сумму первых 10 чисел, кратных 7; 2. вывести на экран 11 первых чисел...
• 

  sabinanuray1810

  20.06.2021 16:35
  Самостоятельная работа 1.к какой системе счисления может принадлежать число 64?...
• 

  Акируя

  26.09.2022 05:21
  1.запишите в двоичной системе свой день, месяц и год рождения. мой год рождения...
• 

  20Fox06

  16.03.2020 06:45
  Вчем ошибка? . даны длины трех отрезков. выяснить, можно ли из этих отрезков составить...