Question

Задача 1. Дано четырехзначное число. В нем зачеркнули первую цифру справа и приписали ее вперед. Вывести полученное число.
ПРИМЕЧАНИЕ: исходное число вводится с клавиатуры. Для выделения цифр числа используем операции деления div и mod. Алгоритм таков - сначала "разбираем" число на цифры, а потом "собираем" в нужном порядке. Например - дано число 1234. Изначально получаем отдельно 1,2,3 и 4. После чего собираем - 4*1000 + 1*100 + 2*10 + 3*1. Итого получаем 4123.

Задача 2. Дано расстояние в сантиметрах. Необходимо найти количество полных метров в нем.
ПРИМЕЧАНИЕ: задача в одно действие, проще некуда.

Задача 3. Даны два целых числа. Возвести в четвертую степень наибольшее.
ПРИМЕЧАНИЕ: сравниваем числа и возводим в степень только то число, которое больше.
Решите любые из них

Answer 1

Задача 1.

var n,a: integer;

begin

writeln('Введите 4-х значное число');

readln(n);

a := n mod 10;

n := n div 10;

write(a);

write(n)

end.

Задача 2.

var n: integer;

begin

writeln('Введите расстояние в сантиметрах: ');

readln(n);

writeln('Расстояние в метрах = ',n div 100)

end.

Задача 3.

var a,b,c: integer;

begin

writeln('Введите 1 число: ');

readln(a);

writeln('Введите 2 число: ');

readln(b);

c:=1;

if a > b then

 begin

 c := a*a*a*a;

 end

 else

   begin

 c:= b*b*b*b;

 end;

writeln('Четвертая степень наибольшего числа = ',c);

end.