20 января 2026 в 16:35
(текущая версия от 20 января 2026 в 16:49)
Публичный:
Да
Тип словаря:
Тексты
Цельные тексты, разделяемые пустой строкой (единственный текст на словарь также допускается).
Содержание:
1
procedure quadratic(a, b, c: real; var ok: boolean; var x1, x2: real); var d: real; begin ok := false if a = 0 then exit; d := b*b - 4*a*c; if d < 0 then exit; d := sqrt(d); x1 := (-b - d) (2*a); x2 := (-b + d) (2*a); ok := true end;
Комментарии