profile
Опубликовано 6 лет назад по предмету Информатика от MariaBalakireva

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

  1. Ответ
    Ответ дан PsyhoAssasin

    Program Summa;

    Uses Crt;

    var i,s:integer;

    begin

          clrscr;

          i:=10;s:=0;

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

          while(i<=50) do

               begin

                    write(i,'  '); 

     

                    s:=s+i; 

     

                     i:=i+5; 

     

               end;  

     

        writeln;

     

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

         readkey;

     

     end.

Самые новые вопросы