Program nums;
<span>var num:array[1..1000] of integer;
</span><span>var i,maxnum: integer;
</span><span>
begin
</span><span>Randomize;
</span><span>for i:=1 to 1000 do num[i] := random(1000000);
</span><span>for i:=1 to 1000 do
</span><span>begin
</span><span>if num[i] > maxnum then maxnum:=num[i];
</span><span>end;
</span><span>Writeln('самое большое число ',maxnum);
</span><span>end.</span>
Ответ:
real: A, B - стороны прямоугольника
real: P - периметр
real: S - площадь
все переменные вещественного типа
24576 бит = 3072 байт = 3 КиБ
16384 бит = 2048 байт = 2 КиБ
12288 бит = 1536 байт = 1,5 КиБ
бит = 8192 бит = 1024 байта = 1 КиБ
16384 бит = 2048 байт (
байт) = 2 КиБ
131072 бит = 16384 байт = 16 КиБ
Счётчик кома́нд (также PC = program counter, IP = instruction pointer, IAR = instruction address register, СЧАК = счётчик адресуемых команд) — регистр процессора, содержащий адрес текущей выполняемой команды. В зависимости от архитектуры содержит либо адрес инструкции, которая будет выполняться, либо той, которая выполняется в данный момент<span>[источник не указан 2676 дней]</span>.
В большинстве процессоров, после выполнения команды, если она не нарушает последовательности команд (например, команда перехода), счетчик автоматически увеличивается (постинкремент). Понятие счётчика команд сильно связано с фон Неймановской архитектурой, одним из принципов которой является выполнение команд друг за другом в определенной последовательности.
Я так понял, должен запуститься цикл и во время итерации при каждом проходе он должен выводить с новой строки то кол-во раз, сколько он выполнился.
var i: integer; {единственная переменная, которая нужна - счетчик}
begin
for i:=0 to 4 do {или нужное кол-во вместо 4}
writeln(i);
end.
Писал без отступов, но здесь и так пара строк. Программа полностью рабочая, но учтите, что счет ведется от 0 и цикл в примере повторится не 4, а 5 раз. На выходе будет:
0
1
2
3
4
Если хотите начинать с 1 - пожалуйста, достаточно сменить значение с 0 на 1.