• Помогите пожалуйста!!! Решить задачу в Паскале. Это срочно. Заранее спасибо!

    question img

Ответы 1

  • program n1;   var a, x: integer;begina:=random(9999);writeln(a);if a>999 then x:=a div 1000;if (a<999) and (a>99) then x:=a div 100;if (a<99) and (a>9) then x:=a div 10;if a<10 then x:=a;writeln(x);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years