Nalmelar
4 год назад
PASCAL Из введённого 3-значного числа удалить вторую цифру и получившееся двухзначное число умножить на эту цифру.
ОТВЕТЫ
Василка
Oct 24, 2020
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.
383
Смежные вопросы:
