Ответы на вопрос:
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(*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.
Популярно: Информатика
-
rbaimova16.05.2023 15:11
-
bezin200004.10.2020 19:17
-
trixi1989vv05.03.2021 23:06
-
mvrlin27.09.2022 11:14
-
kristinka07820.10.2021 17:35
-
окей12625.02.2021 06:53
-
Ельтерник20.10.2021 12:00
-
Azimus1924.05.2022 09:39
-
15JVC1528.02.2022 12:22
-
Куколка11104.05.2020 14:27