1.Дано четырехзначное число. Поменять местами 1 и 4 цифры. Вывести полученное число.
2. Дано четырехзначное число. Поменять местами 1 и 2, 3 и 4 цифры. Вывести полученное число
Ответы на вопрос
Ответил valgrisa
1
Ответ:
1.
Program Sanya;
var A, a1, a2, a3, a4: integer;
Begin
Write('Задайте 4-хзначное число: ');
Readln (A);
a1:=A div 1000;
a2:=A div 100 mod 10;
a3:=A mod 100 div 10;
a4:=A mod 10;
Writeln ('Число ',A, ' поменять местами 1 и 4 цифры: ', a4,a2,a3,a1);
End.
2.
Program Sanya;
var A, a1, a2, a3, a4: integer;
Begin
Write('Задайте 4-хзначное число: ');
Readln (A);
a1:=A div 1000;
a2:=A div 100 mod 10;
a3:=A mod 100 div 10;
a4:=A mod 10;
Writeln ('Число ',A, ' поменять местами 1 и 2, 3 и 4 цифры: ', a2,a1,a4,a3);
End.
valgrisa:
Можно не задавать значения переменным а1, а2, а3, а4, а сразу записать в вывод
ладно, пусть так будет
ещё раз вам большое спасибо
И удалить пояснения
ладно, нормально)
Program Sanya;
var A: integer;
Begin
read(A);
write(A mod 10,A div 10 mod 100,A div 1000);
End.
var A: integer;
Begin
read(A);
write(A mod 10,A div 10 mod 100,A div 1000);
End.
(1 задача)
спасибо, спасибо)
я наверное первое оставлю, оно покрасивее
Хорошо )
Новые вопросы