1. Наверное в версии паскаль в первой строке не degin а begin
После исправления ошибки получим по шагам выполнение кода:
k = 0 s = 17
k = 1 s = 19
k = 2 s = 21
k = 3 s = 23
k = 4 s = 25
k = 5 s = 27
k = 6 s = 29
k = 7 s = 31
k = 8 s = 33
k = 9 s = 35
k = 10 s = 37
Ответ: s = 37
18/3=6(эскимо)
6-5=1(эскимо)
18-3=15(стаканчиков)
P/s в лучшие ответы)
1 - a
2 - a
3 - d
4 - a
5 - г
6 -
7 -
8 - d
9.19 - 2
10 - 6
Const e = 1e-5; // точность
var x, y, r, d :real;
begin
readln(x);
readln(y);
readln(r); r := r*r;
d := sqrt(sqr(x) + sqr(y));
if abs(d - r) < e then
writeln ('лежит на окружности')
else if d < r then
writeln ('попадает в круг')
else
writeln('вне круга');
<span>end.</span>
