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.