Напишите программу которая вводит четырехзначное число и переставляет его первую и последнюю цифры
Опубликовано 13.06.2017 по предмету Информатика от Гость >>
Ответ оставил Гость
Задание №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.
Помогите решить две задачи срочно надо, завтра урок .
1)Напишите программу, которая вводит четырёхзначное натуральное число и переставляет его первую и последнюю цифры, например, из числа 1234 должно получится число 4231.
2)Напишите программу, которая вводит четырёхзначное натуральное число и «вырезает» из него вторую цифру с начала, например, из числа 1234 должно получиться число 134.
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
Напишите программу,которая переставляет первую и последнюю цифры, введённого число,например,из …
Напишите программу,которая переставляет первую и последнюю цифры, введённого число,например,из числа 12345 должно получится 52341.
Pascal ABC.
Пожалуйста,с объяснением
- По голосам
- По дате
ДЛЯ ЧЕТЫРЕХЗНАЧНЫХ ЧИСЕЛ:
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 (‘Число после перестановки цифр:’,x);
end.