Какова масса последнего солдатика? - Free Pascal
Формулировка задачи:
Было когда-то на свете 25 оловянных солдатиков, которых сделали из старой оловянной ложки массой 123 г. 24 солдатика были одинаковыми: друг от друга не отличались. Но двадцать пятый солдатик был не такой, как все. Он оказался одноногим. Его отливали последним, и олова немного не хватило. Какова масса последнего солдатика?
Решение задачи: «Какова масса последнего солдатика?»
textual
Листинг программы
var m:integer; begin m:=123 mod 25; write('Масса последнего солдатика=',m); readln end.
Объяснение кода листинга программы
В данном коде:
- Объявлена переменная m типа integer (целое число).
- В строке m:=123 mod 25; вычисляется остаток от деления числа 123 на 25 и присваивается переменной m.
- В строке write('Масса последнего солдатика=',m); выводится на экран сообщение
Масса последнего солдатика=
и значение переменной m. - В строке readln; происходит чтение строки из стандартного ввода (клавиатуры).