Написать программку,которая запрашивает 2 целых числа и выводит их в приватное.Знаменито

Написать программку,которая запрашивает 2 целых числа и выводит их в приватное.Знаменито ,что на 0 разделять нельзя.Сделать проверку.

К примеру 1 число 6,2 число 2 6:2=3

Задать свой вопрос
1 ответ
Var A,B: integer;
Begin
WriteLn('Введите число А');
Readln(A);
repeatWriteLn('Введите число B');
  Readln(B);
  if B=0 then writeln('Число B не может быть одинаково нулю, повторите ввод');
until not(b=0);
Writeln(A,'/',B,'=',A/B);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт