Перевести на Пайтон var x,y:intrger;begin readln(x); - вопрос №168189870100 от historican 13.11.2021 13:48

Question

Информатика: Перевести на Пайтон 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.​

historican · Answer

x = int(input())if x 0:    y = x + 100elif x == 0:     y = 20elif x 0:    y = x**xprint(y)Объяснение:...

Перевести на Пайтон 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.​

Перевести на Пайтон 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.