Составить программу вычисления значения выражения y=1+1/2+1/3+/

program summa;

var i: integer; y: real;

begin

y: =0;

for i: =1 to 20 do y: =y+1/i;

write('y=',y: 7: 2); {форматный вывод - на ответ приходится 7 символов,}

end.                   {из которых 2 знака после запятой}

Var  maxd,n,m,lst: integer; begin {   считываем с экрана         }     readln(n);     maxd: =0; {   последняя цифра }     lst: =n mod 10; {   цикл по количеству цифр в числе }     while true do     begin         m: =n mod 10;           if (m mod 2 =1) then writeln('нечет. цифра = ',m);         if maxd < m then maxd: =m;           n: =n div 10;         if (n=0) then           begin               writeln('первая  цифра = ',m);               break;           end;     end;     writeln('последняя цифра = ',lst);     writeln('максимальная цифра = ',maxd); end.  

Программа на паскале: var   number, firstdigit, lastdigit,  maxdigit: longint;   begin   read(number);   lastdigit : = number mod 10;   write('нечетные цифры числа: ');   while number > 9 do   begin       if number mod 2 = 1 then write(number mod 10, ' ');       if number mod 10 > maxdigit then maxdigit : = number mod 10;       number : = number div 10;   end;   if number mod 2 = 1 then write(number);     if number mod 10 > maxdigit then maxdigit : = number mod 10;   firstdigit : = number;   writeln;   writeln('первая цифра числа - ', firstdigit);   writeln('последняя цифра числа - ', lastdigit);   writeln('наибольшая цифра числа - ', maxdigit); end.