Найти сумму S=х*х + (5/х+2), х в пределах от 1 до 20 на языке паскаль

Question

Информатика

Митрей

28 мая, 22:53

Найти сумму S=х*х + (5/х+2), х в пределах от 1 до 20 на языке паскаль

+5

Ответы (1)

Знаете ответ?

Мага · Answer 1

Program enot;

Var x: array [1 ... 20] of integer;

i:integer;

s, s1:real;

begin

for i: = 1 to 20 do

begin

x[i]:=i;

S:=x[i]*x[i] + (5/x[i]+2) ;

S1:=s1+s;

end;

write (s1) ;

end.