Минимальным будет 5, ибо отрезок AF будет наименьшим из всех возможных.
О! научился формулировать задачу. Уже хорошо.
program zadanie1;
var
max,num,a :byte;
begin
max:=0;
writeln('vvodite chisla');
repeat
readln(a);
if a*a>225 then
writeln('Slishkom bolshoe chislo')
else
if max<a then max:=a ;
until a=0;
readln;
writeln('max=',max);
end.
Ответ Б
<span>b) Write ('Привет!!!');
</span>
//Pascal ABC.NET v3.1 сборка 1172
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
writeln(seq.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=seq.Min).Select(x->x.Item2));
end.
Пример ввода:
2
3
4
0
Пример вывода:
<span>[1]</span>
Процессор предназначен для обработки данных и управления работой компьютера
P.S ( Ставь лучший ответ ;) Спасибо )