Любой файл можно сохранить с любым разрешением, поэтому, вообще говоря, по разрешению сказать, что это, текст программы или нет, нельзя. Если говорить только о расширениях, которые предлагаются по умолчанию, то: <span>1. .xls - книга Excel 2. .jpg - изображение jpeg 3. .pas - программа на языке Pascal 4. .avi - видео 5. .doc - документ Word 6. .cpp - программа на языке C++ 7. .rtf - текстовый документ с форматированием 8. .gif - изображение gif 9. .wav - звуковой файл 10. .txt - текстовый файл 11. zip - архив 12. .java - программа на языке Java 13. .py - <span>программа на языке Python </span> В комментарии возник вопрос, не являются ли файлы .doc, .xls программами, ведь они могут содержать макросы, написанные на языке VBA. Ответ на этот вопрос скорее нет, чем да. Во-первых, .doc, .xls файлы действительно поддерживают макросы, но это не главное предназначение таких файлов, они могут, но не обязаны содержать программный код (в отличие от собственно тестов программ). С таким же успехом Excel можно было бы называть графическим редактором, ведь в нём можно создавать несложные изображения и открывать и изменять некоторые графические файлы. Во-вторых, </span>.xls, .doc - это контейнеры, примерно такие же, что и .zip, только хранящие текст, картинки, разметку, макросы, и другие интересные вещи. Кстати, новые форматы .xlsx, .docx - и вовсе zip-архивы, открываются архиваторами
Вариант с вводом элементов: Program prog; uses crt; var a: array [0..999] of integer; i, k, n: integer; begin clrscr; write('Размер массива n = '); readln(n); writeln; for i:=1 to n do begin write('a[',i,'] = '); readln (a[i]); end;
for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln; writeln('Количество четных чисел k = ', k); end.
Вариант с рандомными элементами: Program prog; uses crt; var a: array [0..999] of integer; i, k, n: integer; begin clrscr; randomize;
write('Размер массива n = '); readln(n); writeln; for i:=1 to n do begin a[i]:=random(100)-50; writeln('a[',i,'] = ',a[i]); end;
for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln; writeln('Количество четных чисел k =' , k); end.
17. 1) Предполагаем, что из А в А есть один путь. 2) Количество путей из A в X равно сумме количеств путей из А в города, дороги из которых ведут в X (например, H = E + F + G)
