Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Информатика 9 класс, PASCAL | ПОМОГИТЕ

Ответ оставил Гость

//Pascal ABC.NET v3.0 сборка 1111

//1
Var
 s:real;
 n,i:integer;
begin
 readln(n);
 s:=0;
 for i:=1 to n do
  s:=s+(2*i)/(2*i+1);
 writeln(Res=,s);
end.

Пример ввода:
5
Пример вывода:
Res=4.12178932178932

//2
Var
 s,i,sf:integer;
 pr,fpr:real;
begin;
pr:=42/67;
s:=42;
sf:=42;
for i:=2 to 26 do
 begin;
  s:=s+3;
  sf:=sf+s;
 end;
fpr:=sf/(2600*pr);
if fpr>=1 then writeln(Выполнено) else writeln(Не выполнено);
end.

Результат работы программы:
Выполнено