{ фото огонь !!! ))) решение согласно схеме } var x, y, d: real; begin read(x,y); d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат} if d <= 1 then writeln('Входит в Д1') else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then writeln('Входит в Д2') else writeln('Не входит'); end.
Под блокнотом подразумевается стандартный Windows Notepad. Он прост как дважды два, и таким и задумывался. Предназначен для просмотра и возможно редактирования простых текстовых файлов(не документов, форматирование не изменяется), например .txt, .xml, .html и тд Им можно открыть и посмотреть текстовое представление любого файла, хотя большие файлы он не откроет (зависнет или упадет) и может иметь проблемы с кодировками. Имеет простейшие функции типа поиск, замена, переход. А так же открыть и сохранить файл.
Если часто приходится иметь дело с текстовыми файлами предназначеными в первую очередь для чтенье компьютером типа программных кодов, скриптов и тд, то рекомендуется использовать специализированные блокноты типа Notepad++, Sublime Text, Vim, Akelpad и тд
MSO Word предназначен для создания, просмотра, редактирования текстовых документов (не просто текстовых файлов) предназначеных в первую очередь для просмотра людьми. Потому очень много уделяется внимания форматированию текста, можно добавлять всякие рисунки, таблички и прочее и прочее Можно редактировать и простые текстовые файлы, но это не удобно
Объем информации для записи номеров участников: для 1го - 1 бит x 1 = 1 для 2-3го - 2 бита x 2 = 4 для 4-7го - 3 бита x 4 = 12 для 8-15го - 4 бита x 8 = 32 для 16-31го - 5 бит x 16 = 80 для 32-63го - 6 бит x 32 = 192 для 64-120 - 7 бит x 64 = 448 для записи результатов по 8 бит на каждого. 8 x 120 = 960 итого, 1729 бит
1 задача program proga; var st,st2:string; i:Integer; begin writeln('Введите число'); readln(st); for i:=1 to length(st) do begin st2:=st[i]; write(st2,' '); end; end. 2 задача program proga2; var st,st2:string; i,a:Integer; begin writeln('Введите возраст'); readln(a); if a>120 then writeln('Неверные данные'); if a=1 then writeln(a,' год'); if (a>1) and (a<5) then writeln(a,' года'); if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год'); if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then writeln(a,' лет'); if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года '); if(a>104) and (a<110)then writeln(a,' лет'); end.