Procedure Number(number:integer);
var len,i :integer;
str :string ;
begin
str := intToStr(number);
len := length(str);
for i:= 1 to len do
writeln(str[i]);
<span> end;</span>
Информатика и информация повязана тем , что информатика с помощью интернета дает там полезную опять же информацию , с помощью информатики пишут програмы которые помогают искать нам информацию
Размер файла = 512000*5*60 бит = 512000*5*60 / 8 байт =
512000*5*60 /(8*1024) Кбайт = 18750 Кбайт