Программалау ортасында берілген есепті орындау қанша кезеңнен тұрады *

второй вариант

                                           

Ясчитаю, что словами написано верное условие, в фрагменте ошибка: вместо x > 0 должно быть x > = 0 var x: integer; begin   readln(x);   if x > = 0 then     x : = x - 50   else     x : = x + 100;   writeln(x) end. пример ввода: 0 пример вывода: -50

1)6шаров

2)4шаров

3)7шаров

4)5шаров

var s,x,n,i: integer;

begin

  read(x,n);

s: =1;

  for i: = 1 to n do

      s: =s*x;

  writeln(s);

end.