var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.
Program n1;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
writeln('исходный массив: ');
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(15);
write(a[i],' ');
if a[i] mod 2<>0 then k:=k+1;
end;
writeln;
writeln('количество нечетных: ',k);
end.
<span>На первое задание
4) разорви
5) намочи
6) изгрязни
7)высуши
8) положи
9) конец</span>
Практически во всех операционных системах имя файла составляется из двух частей, разделенных точкой. Например:myprog.pas
Слева от точки находится собственно имя файла (ту-prog). Следующая за точкой часть имени называется расширением файла (pas). Обычно в именах файлов употребляются латинские буквы и цифры. В большинстве ОС максимальная длина расширения - 3 символа. Кроме того, имя файла может и не иметь расширения. В операционной системе Windows в именах файлов допускается использование русских букв; максимальная длина имени - 255 символов.Расширение указывает, какого рода информация хранится в данном файле. Например, расширение txt обычно обозначает текстовый файл (содержит текст); расширение рсх - графический файл (содержит рисунок), zip или гаг - архивный файл (содержит архив - сжатую информацию), pas - программу на языке Паскаль.
<span>Файлы, содержащие выполнимые компьютерные программы, имеют расширения ехе или com.
Удачи!</span>
