Необходимо составить программу в Pascal — дискриминанта, где a…

Question

Необходимо составить программу в Pascal — дискриминанта, где a, b и с задаются генератором случайных чисел, все это вмассиве

Answer 1

45

mabonia

15 марта 2023

var a: array[1… 3] of integer; {объявляем массив из 3-х элементов типа integer} i, D: integer; begin randomize; for i: =1 to 3 do a[i]: =random (21) — 10; {заполняем массив случайными числами от -10 до 10} D: =a[2]*a[2] — (4*a[1]*a[3]); {вычисляем дискриминант} writeln ('a=', a[1]); writeln ('b=', a[2]); writeln ('c=', a[3]); writeln; writeln ('D=', D); readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: