11 lines
275 B
ObjectPascal
11 lines
275 B
ObjectPascal
uses Исполнители;
|
|
|
|
begin
|
|
Вычислитель.РешитьКвадратноеУравнение(1,3,2);
|
|
Вывод.ПустаяСтрока;
|
|
Вычислитель.РешитьКвадратноеУравнение(1,2,2);
|
|
Вывод.ПустаяСтрока;
|
|
Вычислитель.ВывестиАрифметическуюПрогрессию(1,2);
|
|
Вывод.ПустаяСтрока;
|
|
Вычислитель.ВывестиВсеМетоды;
|
|
end. |