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