Дано вещественное число aи целое число n(> 0). используя один цикл, найти сумму 1 + a+a2+a3+ … +an. с# windows form нужно

154

376

Посмотреть ответы 2

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

Ilia1098374

Информатика

4,4(3 оценок)

Using system; using system.collections.generic; using system.componentmodel; using system.data; using system.drawing; using system.linq; using system.text; using system.threading.tasks; using system.windows.forms; namespace sum{ public partial class form1 : form { public form1() { initializecomponent(); } private void button1_click(object sender, eventargs e) { int n = convert.toint32(textbox2.text); double a = convert.todouble(textbox1.text); int i = 1; double s =1.0; for (i = 1; i < n + 1; i++) { s = s + a; } textbox3.text = convert.tostring(s); } }}

альбина262

Информатика

4,7(27 оценок)

{1} var n: integer; begin write ('введите заработанную сумму: '); readln (n); write ('вы получите: ', (n*0.77)*0.61) end. {2} var a: array of double; n, i: byte; sum: longint; begin write ('введите кол-во дробных чисел: '); readln (n); setlength (a, n); for i: =0 to n-1 do begin write ('введите ', i+1, ' число: '); readln (a[i]); end; for i: =0 to n-1 do begin writeln ('целая часть ', i+1, ' числа: ', trunc(a[i])); inc (sum, trunc(a[i])); end; write ('сумма целых частей: ', sum); end. {3} var a, b, c, p: double; begin write ('введите стороны треугольника: '); readln (a, b, c); if (a> =(b+c)) or (b> =(a+c)) or (c> =(b+a)) or (a< =0) or (b< =0) or (c< =0) then write ('такой треугольник не существует') else begin p: =(a+b+c)/2; write ('его s = ', sqrt (p*(p-a)*(p-b)*(p-c)): 7: 2, ' ед^2' ); end; end.