Ответ во вложении, так как у тебя в задании
При k равным 100 цикл завершается.
Чтобы посчитать количество итераций цикла
нужно разделить 224 на 32 = 7.
Значит за 7 итераций s становится равным 224.
Чтобы цикл выполнился 7 раз нужно, чтобы на момент 6 итерации значение k было меньше ста и максимально возможным.
Запишем это в виде неравенства:
![6x \ \textless \ 100 \\ x \ \textless \ \frac{50}{3} \\ x \ \textless \ 16 \frac{2}{3} \\](https://tex.z-dn.net/?f=6x+%5C+%5Ctextless+%5C+100+%5C%5C+x+%5C+%5Ctextless+%5C+%5Cfrac%7B50%7D%7B3%7D+%5C%5C+x+%5C+%5Ctextless+%5C+16+%5Cfrac%7B2%7D%7B3%7D+%5C%5C)
Получается, что при при d = 16 цикл выполнится 7 раз и будет напечатано 224.
Ответ: 16
Алгоритм сбора яблок:
1 яблоко 42 пикселя
2 яблоко на 1 меньше
= 41°
Procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
===========================
Без процедур:
var a, b, c, t: integer;
begin
readln(a, b, c);
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
if (b > c) then
begin
t := b;
b := c;
c := t;
end;
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
writeln(a, ' ', b, ' ', c);
<span>end.</span></span>