написать программу в PASCAL ABC которая выполняет переворот пятизначного числа, вводимого
Написать программу в PASCAL ABC которая выполняет переворот пятизначного числа, вводимого с клавиатуры
Задать свой вопросvar a,b,c: integer;
begin
write('Введите пятизначное число:');
readln(c);
if (c gt;= 10000) and (c lt;= 99999) then
begin
a:=c;
while agt;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 gt;= 10000) and (c lt;= 99999) then
begin
a:=c;
if agt;0 then
begin
b:=b*10+a mod 10;
a:=a div 10
end;
if agt;0 then
begin
b:=b*10+a mod 10;
a:=a div 10
end;
if agt;0 then
begin
b:=b*10+a mod 10;
a:=a div 10
end;
if agt;0 then
begin
b:=b*10+a mod 10;
a:=a div 10
end;
if agt;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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.