var a,b,c: integer;
begin
write('Введите пятизначное число:');
readln(c);
if (c >= 10000) and (c <= 99999) then
a:=c;
while a>0 do
b:=b*10+a mod 10;
a:=a div 10
end;
writeln ('Вы ввели число: ',c);
write ('Переворот числа: ',b)
end
else
writeln('Число не пятизначное');
writeln ('Вы ввели число: ',c)
end.
Или всё через if:
if a>0 then
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b,c: integer;
begin
write('Введите пятизначное число:');
readln(c);
if (c >= 10000) and (c <= 99999) then
begin
a:=c;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10
end;
writeln ('Вы ввели число: ',c);
write ('Переворот числа: ',b)
end
else
begin
writeln('Число не пятизначное');
writeln ('Вы ввели число: ',c)
end
end.
Или всё через if:
var a,b,c: integer;
begin
write('Введите пятизначное число:');
readln(c);
if (c >= 10000) and (c <= 99999) then
begin
a:=c;
if a>0 then
begin
b:=b*10+a mod 10;
a:=a div 10
end;
if a>0 then
begin
b:=b*10+a mod 10;
a:=a div 10
end;
if a>0 then
begin
b:=b*10+a mod 10;
a:=a div 10
end;
if a>0 then
begin
b:=b*10+a mod 10;
a:=a div 10
end;
if a>0 then
begin
b:=b*10+a mod 10;
a:=a div 10
end;
writeln ('Вы ввели число: ',c);
write ('Переворот числа: ',b)
end
else
begin
writeln('Число не пятизначное');
writeln ('Вы ввели число: ',c)
end
end.