Ответы на вопрос:
нач - Начало ( должно присутствовать в каждом алгоритме =) Начало нет , а конец есть как , так то?
var a,x,b,y,z,c,r,m: integer;
begin
write ('a=');
readln (a);
r: =a div 1000;
m: =a mod 1000;
x: =m div 100;
b: = m mod 100;
y: =b div 10;
z: =b mod 10;
c: = z*1000+y*100+x*10+r;
writeln ('c=' , c);
end.
Популярно: Информатика
-
Римская122.02.2023 23:23
-
000КапралЛеви00012.06.2023 07:31
-
nimblefish13.10.2020 10:14
-
prodima78023.02.2021 11:35
-
ianastepanenko15.11.2022 01:27
-
bogdanstarunskp06m9y08.05.2023 09:41
-
данил207808.12.2020 19:36
-
Asuacom01.12.2022 13:23
-
3Человек308.12.2021 05:30
-
1FACE122.10.2020 20:08