Question

Напишите в тетради программы на Паскале для решения следующих задач:
Задача 1. Введено трехзначное целое число Х. Получите их него новое пятизначное число Y, приписав слева и справа к числу Х количество его десятков.
Пример: x=456, y=54565

Задача 2. Введено четырехзначное число Х. Найдите произведение первой и третьей цифры данного числа; сумму второй и четвертой цифры данного числа.

Answer 1

Program Job;
var a,b,c:integer;
begin Writeln('Введите число');read(a);b:= a div 10 mod 10;Writeln(b,a,b); 
end.