Var x,y:real;
begin
writeln ('Введите x: ');
read (x);
if x>=1.5 then
begin
y:=SQRT(2*x-3);
writeln('y = ', y);
end else
writeln ('Под корнем отрицательное число!');
end.
Рекурсивный алгоритм, выполняется последовательный вызов функций
Можно переписать код, тогда получим ответ явно. Функцию вызываем до предела, пока не сработает условие выхода
Множество улиц
Множество городов
Множество о проспектах
Множество площадей
Ответ txt, просто переплавить местами переменные адресной строки
Удаление
дописываю до 20ти символов)