P.S Программа написана для Pascal.
program summa;
var
s:real;
i, n: integer;
begin
writeln('Введите число n: ');
read(n);
s:=0;
for i:=1 to n do
s:=s+(i+1)/i;
writeln('S= ',s:4:2);
end.
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
if s.MatchValue('[0-7]*')=s then Writeln('YES')
else Writeln('NO')
end.
Http ( Hyper Text Transfer Protocol)
7. Европейские реки кроме Нила
8. Марки автомобилей кроме Руслана
9. Камни кроме торфа
10. Средний род кроме кофе
................................................