Регистрация
hamidovapti
18.03.2021 21:37
Информатика
Есть ответ 👍

Https://www.quibblo.com/story/DEcD-rsp/Watch-Extraction-2020-Full-Movie-Download-Online-For-Free
https://www.quibblo.com/story/DEcd-nvK/WaTcH-Extraction-2020-full-movie-Online-Streaming
https://www.quibblo.com/story/DEcE-Uqz/Extraction-2020-Watch-Full-Movie-Online
https://www.quibblo.com/story/DEce-qHb/Free-Movies-Extraction-2020-watch-Online-Full-HD-Movie
https://www.quibblo.com/story/DEcF-KyP/Putlockers-Extraction-2020-HD-Full-Watch-Online-For-Free
https://www.quibblo.com/story/DEcf-XPM/Watch-Extraction-2020-Movie-Online-Free

217
482
Посмотреть ответы 1

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

Magma11
Magma11
4,6(72 оценок)

var koef: array[1..3] as integer;  

d: real;

i: integer;

begin

randomize;

; генерируем коэффициенты a b c

for i: =1 to 3   do

begin

koef[i]: =random(100);

end;

; считаем дискриминант 

d: =koef[2]*koef[2]-4*koef[1]*koef[3];

; выводим ответ

writeln(d: 5: 2);

end.

 

 

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