1. Вычислить корни квадратного уравнения ax²+bx+c=0?

1. Вычислить корни квадратного уравнения ax²+bx+c=0? Заданного коэффициентами а, b, с (предполагается, что а не равно 0 и что дискриминант уравнениянеотрицательный).2. Найти сумму членов арифметической прогрессии, если известны первый член, знаменатель и число членов прогрессии. В ПАСКАЛЕ ВСЕ

в избранное

colombino4ka

22 августа 2022

1) Var a,b,c: integer; x1,x2,d: real; Begin write ('a='); readln (a); write ('b='); readln (b); write ('c='); readln (c); d: =sqr (b) — (4*a*c); x1: =(-b+sqrt (d) / (2*a); x1: =(-b-sqrt (d) / (2*a); writeln ('x1=',x1:0:2); writeln ('x2=',x2:0:2); End.2) Var x,i,s,n,d: integer; Begin write ('Введите первый элемент прогрессии: '); readln (x); write ('Введите количество элементов в прогрессии: '); readln (n); write ('Введите знаменатель прогрессии: '); readln (d); s: =0; for i: =1 to n do begin s: =s+x; x: =x+d; end; writeln ('Сумма элементов арифметической прогрессии равна ',s); End.

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

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

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

Знаете другой ответ?