Регистрация
KADANCHUK
23.05.2020 04:59
Информатика
Есть ответ 👍

Напишите программу на ПАСКАЛЬ , мне нужно написать в тетрадь , а не на компьютере. Только на школьном уровне В тетради

Найти корни уравнения ax2 + bx + c =0 (a<>0) при условии D>=0

Составить программу и блок-схему

Имя программы Корни

Вывести на экран значения:

Запрос: Введите переменные

Вывод:

Значение равно

Вывести два знака после запятой

158
263
Посмотреть ответы 1

Ответы на вопрос:

Haesiy
Haesiy
4,8(23 оценок)
Var a: array [1..10] of real; ran: real; i: integer; begin for i: = 1 to 10 do begin ran: =100-random(200)+1; a[i]: = ran; if a[i]< 0 then  begin write(a[i],' '); writeln(i); end; end; end.

Популярно: Информатика