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

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.

Program massivi; var i: byte; c: array [1..10] of integer; a, b: array [1..5] of integer; begin // zapolnee massiva c: for i: =1 to 10 do begin // wtire('c['+inttostr(i)+']='); readln(c[i]); end; // formirovanie massivov a i b. for i: =1 to 10 do // if i mod 2 = 0 then a[i div 2]: =c[i] else b[i div 2 + 1]: =c[i]; // write('massiv a: '); // for i: =1 to 5 do write(inttostr(a[i])+', '); // writeln(''); // write('massiv b: '); // for i: =1 to 5 do write(inttostr(b[i])+', '); // writeln(''); // write('massiv c: '); // for i: =1 to 10 do write(inttostr(c[i])+', '); end.

1. как выше уже сказали, имя файла обычно состоит и правда из двух частей. это придумали еще давно, сначала просто для удобства, чтобы понимать, что за информация содержится внутри (текст, звук и т. д.) . впоследствии операционные системы стали использовать расширение для распознавания содержимого и запуска необходимого приложения для обработки файла, или распознавала, что файл является программой и запускается сам (это в windows и dos файлы с расширением *.exe, *.bat, *.com) а вот в линуксе исполняемый файл может иметь любое расширение, или вообще его не иметь. в windows ( а ранее в dos) использовалось расширение с ограничениями, в три знака. сейчас windows использует и больше знаков для работы (например *.docx). в принципе имя файла может состоять хоть из одной, хоть из десяти частей. главное его открыть нужной программой, чтобы прочитать.