Регистрация
Галя4425
19.03.2021 15:52
Информатика
Есть ответ 👍

Составить программу нахождения функции y = 1 +1 / (2 * 2) +1 / (3 * 3) + + 1 / (n * n), если n = 10

206
390
Посмотреть ответы 3

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

lollyslacker
lollyslacker
4,4(30 оценок)
Var n, i: integer; y, x: real; begin n: =2; y: =1; while n< =10 do begin x: =1/(n*n); y: =y+x; n: =n+1; end; writeln(y); end.
dianajalagonia
dianajalagonia
4,7(37 оценок)
Var y, i: integer; y: = 0 for i: = 0 to 10 do y: = y +  1 / (i * i); все, вроде. проверь на баги, а то у меня нет среды разработки паскаля на pc
Поповодутогочтобы
Поповодутогочтобы
4,7(16 оценок)
Var a: array [1..1000] of integer; i,n: integer; begin readln(n); for i: =1 to n do begin a[i]: =random(2); write(a[i],' '); end; writeln; for i: =1 to n do begin if a[i]=1 then a[i]: =0 else a[i]: =1; write(a[i],' '); end; end.

Популярно: Информатика