(написать программу) спортсмен в 1 день пробежал 10 км, каждый день он увеличивал пробег на 10%.в какой день он пробежит 20 км?

program sport; var      s: real;       day: integer; begin            day : = 1;       s : = 10;             while s < 20 do      begin            day : = day + 1;             s : = s + (s/100)*10;       end;             writeln(day);             readln; end.

програ́ммное обеспе́чение[1][2] (допустимо также произношение обеспече́ние[3][4][5]) (по) — все или часть программ, процедур, правил и соответствующей документации системы обработки информации или

совокупность программ системы обработки информации и программных документов[8], необходимых для эксплуатации этих программ 

программное обеспечение принято по назначению подразделять на системное, прикладное и инструментальное, а по способу распространения и использования на несвободное (закрытое), открытое и свободное.

 

 

 

 

  program sumandmul;

uses crt;

var a: array[1..10] of real;

        i: integer;    

 

        sum,mul: longint;

begin

      clrscr;

      for i: =1 to 10 do

            begin

                  write('введите -', i,' число: '  );

                  readln(a[i]);

              end;

 

 

sum: =0; mul: =1;

for i: =1 to 10 do

            begin

                if (a[i]> 0) then sum: =sum+a[i];

                if (a[i]< 0  )  then mul: =mul*a[i];

              end;    

  writeln('сумма положительных элементов: ',sum);

  writeln('произведение отрицательных элементов: ',mul);  

    readkey;

 

end.