Запиши программу на языке Паскаль для: y = {0, если x ≤ 0{x, если 0 < x ≤ 1{x², если x > 1(y:3:0)Запусти программу и введи значение x=20.

Чтобы перевести число из десятичной системы в двоичную надо:

целую часть числа делить на 2 нацело, до тех пор пока получившееся неполное частное не станет меньше 2, а затем, начиная с последнего неполного частого (оно всегда будет 1), записать остатки от каждого деления в порядке, обратном получению.(смотри приложение 1);

дробную часть надо умножить на 2, до тех пор пока в дробной части не получится ноль либо не определится период либо до указанной точности, затем выписываем получившиеся целые части в порядке их получения. следует помнить, что умножаем только дробную часть. (смотрит приложение 2) В примере точность не указана и потому я решала до 12 знака

54,677≈1001010,101011010101....

55:5=11

365:11≈33(34) берём "34", чтобы перехлестнуть 365.

Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:

34*10=340 (340+34=374) - подходит, но это не максимум!

365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.

В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).

Проверка:

34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.

ответ: d=34.