Или 4,или 1
но больше всего 4
Цикл for выполняет 3 раза d+2*i
d=4*2=8
1)d=8+2*1=10
2)d=10+2*2=14
3)d=14+2*3=20
d=20
1 килобайт-1024 байт
1 байт-8 бит
1 килобайт-8192 бита
1500 килобайт-12288000 бит
12288000/512000=24 секунды
Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('----------------------');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('----------------------');
Writeln('Максимальное число: ', max);
Writeln();
end.
ти на английском написал паска убири л и все будет правильно