Дано 4-х значное число. Определить, что больше само число или его перевёртыш.
5-9 класс
|
var
n,a:integer;
begin
readln(n);
a:=(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;
if n>a then
writeln('число ', n, ' больше перевертыша ', a)
else
writeln('перевертыш ', a, ' больше числа ', n);
end.
Другие вопросы из категории
выполняет программу проверки на наличие вирусов
3) Фармацевт готовит лекарство по рецепту
4) Врач устанавливает причину плохого самочувствия у больного
5) Робот-садовник стрижет газон
6) Симфонический оркестр исполняет музыкальное произведение
2. Используя набор данных "Крупные водохранилища России" (
Читайте также
натуральных числа вывести на экран то из них у которого цыфра меньше. пожалуйста решите 2 задачи
будет выведено на экран в результате выполнения алгоритма. Необходимо учитывать начальное и конечное значение параметра цикла, начальное значение переменной S.
Определите, что будет напечатано в результате выполнения следуюшего алгоритма, записанного на трёх алгоритмических языках.
Пример:
Вход 1212
На выходе 2
Я сделал:
program Test;
uses Crt;
var A,B,C,D,E: integer;
begintextbackground(8);
clrscr;
textcolor(15);
write('Введите 4-х значное число: ');
textcolor(13);
read(A);
C:=A div 1000;
B:=A div 100;
B:=A mod 10;
D:=A mod 100;
D:=A div 10;
E:=A mod 10;
E:=A mod 10;
А как дальше не знаю =(