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; {здесь либо пропущен знак либо v1-новая переменная не перечисленная в списке описания переменных}
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.
Числовая информация - данные, выраженные в виде специальных символов - цифр, чисел. Необходима для, например экономических взаимоотношений. Пример такой информации - ценники в магазинах, данные различных приборов, и пр.
текстовая информация - это перенос речи, мыслей, рассуждений в форму текста - сочетания букв, причем различные языки имеют свой набор символов. Пример такой информации - книги, различные документы, протоколы и пр.
графическая информация - самый, наверное, древний отображения и передачи информации. Это - различные изображения. Примеры - наскальная живопись, фрески, картины, диаграммы, чертежи, схемы и пр.
звуковая - информация, в основе которой лежат звуковые колебания. Так же - один из древнейших видов. Примеры - человеческая речь, музыка, различного рода сигнализация и пр.
Видеоинформация - информация, хранящаяся в таком формате, что при воспроизведении ее происходит передача с изменением объекта во времени, информация сменяется информацией - графические объекты "движутся". Пример видеоинформации - кино, телевидение, компьютерные игры и пр...
Поделитесь своими знаниями, ответьте на вопрос:
uses
GraphABC;
const h=300;
begin
maximizewindow;
line(0,100,400,100);
line(0,100,200,300);
line(400,100,200,300);
line(0,100,0,100+h);
line(400,100,400,100+h);
line(200,300,200,300+h);
line(0,100+h,400,100+h);
line(0,100+h,200,300+h);
line(200,300+h,400,100+h);
end.