Материнская плата и внешние устройства.
Не хватает гласных букв.
Практически во всех операционных системах имя файла составляется из двух частей, разделенных точкой. Например:myprog.pas
Слева от точки находится собственно имя файла (ту-prog). Следующая за точкой часть имени называется расширением файла (pas). Обычно в именах файлов употребляются латинские буквы и цифры. В большинстве ОС максимальная длина расширения - 3 символа. Кроме того, имя файла может и не иметь расширения. В операционной системе Windows в именах файлов допускается использование русских букв; максимальная длина имени - 255 символов.Расширение указывает, какого рода информация хранится в данном файле. Например, расширение txt обычно обозначает текстовый файл (содержит текст); расширение рсх - графический файл (содержит рисунок), zip или гаг - архивный файл (содержит архив - сжатую информацию), pas - программу на языке Паскаль.
<span>Файлы, содержащие выполнимые компьютерные программы, имеют расширения ехе или com.
Удачи!</span>
const n=4; m=8;
var a:array[1..n,1..m] of integer;
i,j,x: integer;
begin
x:=1;
for j:=1 to m do
begin
for i:=1 to n do
begin
a[i,j]:=x;
if (j mod 2 = 0) and (i<>n) then x:=x-1
else x:=x+1
end;
x:=x+n-1
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:5);
writeln
end
end.
program z1;
var
i,k:integer;
begin
k:=0;
i:=0;
while i <> 10 do begin
dec (k);
if (abs (k) mod 2 =1 ) and (k < 0) then
begin
writeln (k);
inc (i);
end;
end;
end.
Решение 5 задачи, решу 2 и 4, если ответите на вопрос в обсуждении.
Опять же задачи максимально ущербно сформулированы, и тут нет ответа на такие вопросы как "выводить ли сам массив на экран, вещественные или целые использовать типы, как вообще ввод и вывод должен работать", поэтому не жаловаться на неверное построение задачи.
program abc;
var
a:array[1..100] of integer;
i,chet,nechet:integer;
begin
nechet:=0;
chet:=0;
for i:=1 to 100 do
a[i]:=random(99)+1;
for i:=1 to 100 do
if(odd(a[i])=true) then inc(nechet)
else inc(chet);
writeln(chet,' ',nechet);
end.
