1) загоняем синий шарик в нишу
2) прогоняем мимо него все красные направо
3) выкатываем его из ниши и вытаскиваем его из жолоба
4) иди к п 1)
Правильные: В) и (Б)
неправильные: (А)
правильно должно быть так:
(А) - PowerPaint*...и дальше предложение
Как то так, если не трудно поставь лайк, и в лучшее с:
Var a, b, c:real;
begin
writeln('Введите значение гипотенузы и катета:');
read(c, a);
b := sqrt(c*c - a*a);
write(b);
end;