Question

Написать программу (по аналогии. Дано трехзначное число. Найти произведение его первой и второй цифры.

СРОЧНОО
ПОЖАЛУЙСТА СРОЧНО
ЗАРАНЕЕ СПАСИБО.

Answer 1

Program n_1;

var x:integer;

begin

   readln(x);

   x:=(x mod 10)*(trunc(x/10) mod 10);

   writeln(x);

end.

Это если под первыми цифрами подразумеваются десятки и единицы.

Если имелись ввиду сотни и десятки, то

Program n_1;

var x:integer;

begin

   readln(x);

   x:=(trunc(x/10) mod 10)*(trunc(x/100) mod 10);

   writeln(x);

end.