Задача 7. 12288 бит/8192 бит = 1,5 КБ
Задача 8. 4096 бит/8192 бит = 0,5 КБ
Задача 9. 512 Мбайт*1024 КБ = 524288 КБ
Задача 10. 2 Гбайта*1024 МБ = 2048 МБ
Var a,i:integer;
begin
for i:= 1 to 4 do begin
a:=random(1,20);
write(a,' ');
end;
<span>end.</span>
1.Каждое предложение начинается с заглавной буквы
2.Между словами должен быть пробел
3.После знаков препинания должен быть пробел
4.С стороны знаков "- и =" должен быть пробел
Var
input, output: text;
x,k: integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
k := 0;
read(input, x);
while x <> 0 do
begin
k := k + 1;
read(input, x)
end;
write(output, k);
close(input);
close(output)
end.