1 бит - 0,00012 кб
1 байт - 0,00098 кб
1 мегабайт = 1024 кб
1) 1234 бит = 0,15 кб
2) 580 байт = 0,57 кб
3) 4564 мегабайт = 4673536
Program n1;
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.
Информацыоное общество,алгаритм и его формальное исполнение
Если в паскале то
Program fhfhjhf;
var a , a1 :integer ;
begin
Writeln('апиши число');
Readln(a);
Writeln('Найдем число');
a1 = a*0.001;
If a1>100 then writeln('Конечно больше')
else Writeln('Конечно меньше');
Writeln('Не за что');
end.
1) Это книгопечатальщики. Раньше книги приходилось печатать чуть ли не ни в ручную. технологии не позволяли ((( а сейчас благодаря информ. технологиям и инф.обществу делать это стало довольно просто.