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

SCHOOL18STUDENT SCHOOL18STUDENT    3   14.07.2020 10:56    1

Ответы
Julianna2006 Julianna2006  15.10.2020 15:21

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.

ПОКАЗАТЬ ОТВЕТЫ
sking09 sking09  15.10.2020 15:21
PascalABC.NETuses School;begin  var a := ReadInteger.Digits;  Print((a[0]*10 + a[2]) * a[1])end.

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


PASCAL Из введённого 3-значного числа удалить вторую цифру и получившееся двухзначное число умножить
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика