Написать программу в pascal используя циклы. а)s квадратов чисел от 1 до n+1. б)p кубов чисел от 1 до n-5. в)частное от деления s на p. записать это все в одну программу.

238

353

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

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

7kotik7myr7myr7

Информатика

4,5(68 оценок)

// var n,s,p,i: integer; - для значений n < 18 var n,s,i: integer; p: real; begin write('n = '); readln(n); s: =0; for i: =1 to n+1 do s: =s+i*i; writeln('s = ',s); p: =1; for i: =1 to n-5 do p: =p*i*i*i; writeln('p = ',p); writeln('s/p = ',s,'/',p,' = ',s/p); end. пример: n = 10 s = 506 p = 1728000 s/p = 506/1728000 = 0.000292824074074074

dashutka20032

Информатика

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

Как ни странно, всему, чему угодно, поскольку с1 не участвует ни в одной формуле. возможно, автор вопроса ошибся и где-то вместо точек с запятой, означающих перечисление ячеек,должно быть указано двоеточие, обозначающее диапазон, но условие есть условие. полагаю, должно быть указано =срзнч(а1: е1), тогда мы можем составить уравнение: (12+с+7)/3=5; 19+c=15 ⇒ c=-4