Могу предположить, что это - <em>Расширение</em> (файла). Например 123.txt (Текстовый файл с названием 123), 123.wmw (Видео файл).
Надеюсь знаешь как это делать ,получится число 1111001
105 делиш на 2 пока не получишь 0 и в обратном порядке записываешь числа
Program Pr1;
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v+1;
end
else if i mod 2<>0 then v:=v+1;
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.
Все работает я проверил
Надо ввести новую переменную, например y, присвоить её к 1: y:=1
Дальше, в первой задаче ничего не трогаем, во второй пишем: if b=4 then writeln (....) and y:=y+1 else ....
И тоже самое пишем в 3 задаче ( and y:=y+1 ), т.е., если он ответит на все вопросы правильно,то у будет равняться 5, ну и в конце пишем "врайтлн у" и всё))
Ну там есть такие ячейки 3-ёх цветов, и вот когда они загораются их цвета смешиваются. И получается любой цвет. Присмотрись к монитору внимательно и увидишь) (Цвета: синий, красный и зелёный) <span />