Найти сумму первых десяти двухзначных чисел, кратных Вывести на экран эти числа и сумму

Найти сумму первых десяти двухзначных чисел, кратных 5. Вывести на экран эти числа и сумму.

     

    begin

               end;  

    var i,s:integer;

                    write(i,'  '); 

          i:=10;s:=0;

          clrscr;

        writeln;

          while(i<=50) do

  • Program Summa;

     

                     i:=i+5; 

         readkey;

        writeln('Сумма 10 двухзначных чисел кратных 5: ',s);

               begin

     

     

     

         write('Двухзначные числа кратные 5: '); 

                    s:=s+i; 

     

    Uses Crt;

     end.

Добавить комментарий

*

63 − 53 =