Задано двухзначноечисло найдите творение между кольчеством дестков и едниц

Задано двухзначноечисло найдите произведение меж кольчеством дестков и едниц

Задать свой вопрос
2 ответа
PascalABC.NET 3.4

begin
  var n := ReadInteger;
  Writeln((n mod 10)*(n div 10))
end.
Var
n:integer;

begin
Read(n);
Writeln((n div 10)*(n mod 10))
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт