Bandilbine 27 ноября 2019 в 05:27
Написать программу которая вычисляет значение выражения y= 1+1\2+1\3...+1\n при заданом n
Написать программу которая вычисляет значение выражения y= 1+1\2+1\3...+1\n при заданом n
Program (любое название);
Var y,n:integer;
begin
read(n);
y:=n+1;
write(y);
end.
Вроде так
Var y,n:integer;
begin
read(n);
y:=n+1;
write(y);
end.
Вроде так
Для комментирования необходимо зарегистрироваться на сайте