begin
var x, y: integer;
read(x, y);
write((x div 100 mod 10) * (y div 100 mod 10)) ;
end.
PascalABC.NET
Поделитесь своими знаниями, ответьте на вопрос:
]Найти произведение вторых цифр у двух натуральных четырехзначных чисел.Pascal
begin
var x, y: integer;
read(x, y);
write((x div 100 mod 10) * (y div 100 mod 10)) ;
end.
PascalABC.NET