Question

PASCAL Из введённого 3-значного числа удалить вторую цифру и получившееся двухзначное число умножить на эту цифру.

Answer 1

Ответ:

program chislo;

var a,b:Integer;

begin

readln (a);

b:=(a div 10) mod 10;

a:=(a div 100)*10+a mod 10;

writeln (a*b);

end.

Answer 2

PascalABC.NET

Ответ:

• uses School;
• begin
•  var a := ReadInteger.Digits;
•  Print((a[0]*10 + a[2]) * a[1])
• end.

Пример работы: