1.Дано четырехзначное число. Поменять местами 1 и 4 цифры. Вывести полученное чи...

August 2022 1 50 Report

1.Дано четырехзначное число. Поменять местами 1 и 4 цифры. Вывести полученное число.

2. Дано четырехзначное число. Поменять местами 1 и 2, 3 и 4 цифры. Вывести полученное число

Answers & Comments

valgrisa

Ответ:

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.

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.

2 votes Thanks 1

valgrisa Можно не задавать значения переменным а1, а2, а3, а4, а сразу записать в вывод

SklMatt ладно, пусть так будет

SklMatt ещё раз вам большое спасибо

valgrisa И удалить пояснения

SklMatt ладно, нормально)

valgrisa Program Sanya;
var A: integer;
Begin
read(A);
write(A mod 10,A div 10 mod 100,A div 1000);
End.

valgrisa (1 задача)

SklMatt спасибо, спасибо)

SklMatt я наверное первое оставлю, оно покрасивее

valgrisa Хорошо )

mozhno skazat 10balov darom za istoriyu v kakom godu otryad francisko pissaro za

Answer

Answers & Comments

pozhalujsta reshite vtoroj raz otpravlyayu dam 90 balov sdelajte programmu ne k

chto ne tak nuzhno sdelat chislo perevertysh chetyrehznachnogo chisla

paskal komandy div i modopredelit summu krajnih cifr trehznachnogo chisla vved

chaaf30037c065f4a9a273c6ed6493e422 63350

kak proverit bukvu a v slove popristalnej

sinonim bez ne k slovu neskladno vzmahnut rukami

mozhno skazat 10balov darom za istoriyu v kakom godu otryad francisko pissaro za

рекомендуемые вопросы

Helpful Links

Helpful Social