Напишите в тетради программы на Паскале для решения следующих задач: Задача 1. Введено трехзначное целое число Х. Получите их него новое пятизначное число Y, приписав слева и справа к числу Х количество его десятков. Пример: x=456, y=54565 Задача 2. Введено четырехзначное число Х. Найдите произведение первой и третьей цифры данного числа; сумму второй и четвертой цифры данного числа.
Program Job; var a,b,c:integer; begin Writeln('Введите число');read(a);b:= a div 10 mod 10;Writeln(b,a,b); end.
это 1 задача?
