begin Write('Введите целое трехзначное положительное число ->'); Readln(x); a := x mod 10; y := 100 * a + (x div 10); Writeln('Первоначальное число было: ', y); b := y mod 100; Writeln('Зачеркнули первую цифру: ', b); b := 10 * b; Writeln('Умножили на 10: ', b); b := b + (y div 100); Writeln('Прибавили зачеркнутую цифру: ', b); Writeln('И получили введенное нами число - результат') end.
Тестовое решение: Введите целое трехзначное положительное число ->183 Первоначальное число было: 318 Зачеркнули первую цифру: 18 Умножили на 10: 180 Прибавили зачеркнутую цифру: 183 И получили введенное нами число - результат
Наливаем в 5-литровую ёмкость 5 литров. Выливаем эти 5 литров в трехлировую емкость, тогда в пятилитровой емкости остнется 2 литра. Выливаем воду из трехлитровой ёмкости. Переливаем в неё 2 литра из пятилитровой ёмкости и наливаем воду в пятилитровую воду. Всего 7 литров: 2 литра в трехлитровой и 5 литров в пятилитровой
5 - литровая 3-литровая 5 0 1 шаг: наливаем в пятилитровую, трехлитровая пустая 2 3 2 шаг: вылили три литра в трехлитровую, 2 литра осталось в пятилитр. 2 0 3 шаг вылили воду из трехлитровой, в пятилитровой остаток 2 литра 0 2 4 шаг вылили 2 литра из пятилитровой в трехлитровую 5 2 5 шаг наливаем 5 литров в пятилитровую и 2 литра имеет в трехлитровой всего 7
x, a, b, c, y: integer;
begin
Write('Введите целое трехзначное положительное число ->');
Readln(x);
a := x mod 10;
y := 100 * a + (x div 10);
Writeln('Первоначальное число было: ', y);
b := y mod 100;
Writeln('Зачеркнули первую цифру: ', b);
b := 10 * b;
Writeln('Умножили на 10: ', b);
b := b + (y div 100);
Writeln('Прибавили зачеркнутую цифру: ', b);
Writeln('И получили введенное нами число - результат')
end.
Тестовое решение:
Введите целое трехзначное положительное число ->183
Первоначальное число было: 318
Зачеркнули первую цифру: 18
Умножили на 10: 180
Прибавили зачеркнутую цифру: 183
И получили введенное нами число - результат