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

Question

Информатика

Натан

2 января, 04:35

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

+4

Ответы (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.