Var
n,i:integer;
begin
readln(n);
while i<n do
begin
i:=i+1;
writeln(i);
end;<span>end.</span>
1)Пусть 1 символ занимает 8 бит (Кодировка ASCII)
Вес текста = 5 * 30 * 70 * 8 бит = 84000 бит = 10500 байт
2) HDD = 320*1024 Mb = 327680 Mb
Кол-во = 327680 / 700 шт = 469 шт (округляем в большую сторону)
Вес = 469 * 15 г = 7035 г
3)Данные = 256000 * 2 * 60 бит = 30720000 бит = 3840000 байт = 3750 Кбайт
Первый год - 1,2m
Второй - 1.44m
Третий - 1,728m
Четвертый - 2,0736m
Долг в 2 раза превысит первоначальный вклад через 4 года.
Операция div - это целочисленное деление, т.е. сколько раз поместится число 3 в числе 8. Ответ будет 8/3=2
Есть еще другое деление - mod, т.е. остаток от целочисленного деления.
Если 8 mod 3 = 666666666666667
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
write('p=',p);
end.