по типу данных
- числовые (целочисленные и с плавающей запятой)
- логические - истина / ложь
- символьные - один символ
- строковые - последовательность символов
по области видимости
- глобальные - видны из любого места программы
- локальные - видны только из процедуры в которой объявлены
по продолжительности действия
- автоматические - действуют внутри программного блока
- статические - сохраняют свое значение после выхода из блока
по времени создания
- статические - создаются в момент запуска программы
- динамические - создаются в процессе выполнения программы
по наличию внутренней структуры
- простые (число, строка)
- сложные (массив, запись)
Var
a, b : array [1..1000] of integer;
n, m, i : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
m := 0;
for i := 1 to n do
if a[i] = 0 then
begin
m := m + 1;
b[m] := i;
end;
for i := 1 to m do write (b[i], ' ');
end. <span>
</span>
1.5 часа = 90 мин = 5400 сек
5400 * 25 = 135 000
135 000 Мбайт
<span>a,b:integer;
d:string[45];
begin
SetConsoleOutputCP(1251);
writeln('Введите число в диапазоне от 1 дo 100');
write('a=');
readln(a);
b:=a mod 10;
a:=a div 10;
case b of
0: d:='';
1: d:='I';
2: d:='II';
3: d:='III';
4: d:='IV';
5: d:='V';
6: d:='VI';
7: d:='VII';
8: d:='VIII';
9: d:='IX';
end;
b:=a mod 10;
a:=a div 10;
case b of
0: d:=''+d;
1: d:='X'+d;
2: d:='XX'+d;
3: d:='XXX'+d;
4: d:='XL'+d;
5: d:='L'+d;
6: d:='LX'+d;
7: d:='LXX'+d;
8: d:='LXXX'+d;
9: d:='XC'+d;
end;
b:=a mod 10;
a:= a div 10;
case b of
0: d:=''+d;
1: d:='C'+d;
end;
writeln('B Римской системе счисления ' ,d);
readln;
end.</span><span> </span>
