Написать программу на языке паскаль: вычислить сумму 1/2 + 1/4 + 1/6 + 1/2n

Смешарик111 Смешарик111    1   28.05.2019 18:30    1

Ответы
1Elvira1 1Elvira1  01.10.2020 13:43
Program h2;
const
n=20;
var i:integer;
s:real;
begin
for i:=2 to n do
begin
if (i mod 2=0) then s:=s+1/i;
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика