1. Информатика
  2. Дано целое четырехзначное

Дано целое четырехзначное число n.если первая цифра числа больше, чем последняя, то увеличить число в 2 раза иначе увеличить число в 10. написать програму (паскаль)

янаневолина янаневолина    1   27.08.2019 12:40    3

Ответы
Nataliaroy Nataliaroy  05.10.2020 22:45
Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
if A div 1000 > A mod 10 then A:=A*2
else A:=A*10;
WriteLn(A)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vodovozoffsem vodovozoffsem  24.09.2019 22:10
Паскаль. программа для вычисления суммы ряда чисел s=1/3+1/5+1/7+1/9+1/n...
Нвб Нвб  24.09.2019 22:10
Найти сумму первых u элементов массива k(n) и произведению последних j элементов этого массива....
Legendary13 Legendary13  24.09.2019 22:10
Написать программу.даны два числа а и б, наибольшее из них умножить на 10, а наименьшее разделить на 10...
Dmitriy031 Dmitriy031  24.09.2019 22:10
Сотовый телефон имеет монохромный экран с 32 градациями серого цвета и разрешением 96*68. чему равен минимальный объем видеопамяти в мбайт;...
St1mx15 St1mx15  01.10.2019 19:30
Какое имя файла нельзя использовать в операционной системе windows и почему?...
faton63 faton63  01.10.2019 19:30
Информация сообщения занимает 50 строк по 47 символов в строке сколько символов в алфавите если все сообщение содержит 2350 байт напишите с решением...
Sashalizanika Sashalizanika  01.10.2019 19:30
Достоинства и недостатки колонок; наушников....
Шнуров Шнуров  01.10.2019 19:30
Для какого из названий цветов ложно высказывание не (первая буква гласная) астра,пион,лаванда,эдевейс ....
Пензик Пензик  05.06.2021 19:47
Как написать в питоне: Если все числа отрицательные или положительные, то писать что-то...
rous59 rous59  05.06.2021 20:11
Где правильно создано событие scr.onkey(fun,”key”)? Правильных ответов может быть несколько. ОТВЕТИТЬ scr.onkey(fun, r ) onkey(fun, g ) scr.onkey(fun, $ ) scr.onkey(fun,...

Популярные вопросы