Begin
for var v := 100 to 150 do begin //возраст от 100 до 150 лет
var q := Sqr(StrToInt(IntToStr(v)[1])) //Суммируем квадраты каждой цифры
+ Sqr(StrToInt(IntToStr(v)[2])) //из возможного возраста
+ Sqr(StrToInt(IntToStr(v)[3])); //и записываем его в q
for var d := 1 to 31 do begin //Берем день месяца от 1 до 31
if (q + d) = v then begin //Если q + день = возрасту
println('День:', D, ' Возраст: ', v); //Выводим сообщение
end;
end;
end;
end.
Человечество начало использовать простые вычислительные средства тысячи лет назад. Наиболее распространенным типом расчета было определение количества товаров, используемых в биржевой торговле. Простейшим решением является использование весовых эквивалентов конвертируемого продукта, поскольку нет необходимости рассчитывать количество вещества, содержащегося в продукте. Для этих целей использовались простые бальзамические сундуки, которые были первым устройством обнаружения массы.
Принцип эквивалентности также использовался в так называемой «тюрьме». Чтобы вычислить вещество, необходимо было стимулировать кости в инструменте.
Благодаря изобретению зубчатых колец расчеты усложнились. Механизм предвидения, обнаруженный в начале 20-го века (найденный в древнем древнем корабле 1-го века до нашей эры), мог показать образцы планет. По оценкам, этот инструмент использовался для религиозных целей, таких как расчеты по календарю, предсказание даты и луны, заселение и сбор урожая. Для расчетов использовалось более 30 бронзовых колец и несколько циферблатов. Дифференциальный транспорт использовался для расчета фаз Луны (ученые предположили, что этот подход был изобретен в XVI веке). После краха античной культуры такие инструменты исчезли. Сложность потребовала создания такого механизма для человечества на 1,5 года.
<span>1.Сначала требуется спросить у пользователя на сколько уменьшить.<span>Затем следует склеить "Вопрос" и то, что ввел пользователь. Это можно сделать с помощью команды слить … …, находящейся в операторах. Б</span></span><span>лок </span>изменить размер<span> и </span>установить размер, при его помощи меняем размер