Вычислить y=100/x, если x 0; y=100*x, если x =0, с программы паскаль

Question

Информатика: Вычислить y=100/x, если x 0; y=100*x, если x =0, с программы паскаль

Anleki · Answer

Var x,y:integer;beginwriteln( Введите число );readln(x);if x 0 theny:=100/xelsey:=100*x;writeln( Полученное число = , y);end....

Вычислить y=100/x, если x< 0; y=100*x, если x> =0, с программы паскаль