Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите решить две задачи срочно надо, завтра урок !!!
1)Напишите программу, которая вводит четырёхзначное натуральное число и переставляет его первую и последнюю цифры, например, из числа 1234 должно получится число 4231.
2)Напишите программу, которая вводит четырёхзначное натуральное число и "вырезает" из него вторую цифру с начала, например, из числа 1234 должно получиться число 134.

Ответ оставил Гость

Задание №1

var x:integer; 
begin 
writeln(Введите четырехзначное число); 
read(x); 
x:=x mod 10*1000+x div 100 mod 10*100+x div 10 mod 10*10+x div 1000; 
writeln(Число после перестановки 1-й и 4-й цифры = ,x); 
end.

Задание №2

var x:integer; 
begin 
writeln(Введите четырехзначное число); 
read(x); 
x:=x div 1000*100+x div 10 mod 10*10+x mod 10; 
writeln(x); 
end.