Любое целое число можно рассматривать как вещественное но с нулевой дробной частью обоснуйте целесообразность наличия особых компьютерного представления целых чисел
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
