program
HelloWorld;
var b
:double;
var s
:string;
begin
<span> writeln('</span>Введите биты:');
readln(b);
b:= b/8;
writeln('Результат
в байтах:');
writeln(b:15:2);
b:= b/1024;
writeln('Результат
в килобайтах:');
writeln(b:15:2);
end.
Program kBt;
uses crt;
var
kBte,kBt1,sum:real;
begin
clrscr;
writeln('vvedite lo-vo KBt: ');
read(kBte);
writeLn('vvedite cenu za 1 KBt: ');
read(kBt1);
sum:=kBte*kBt1;
writeln('Neobhodimo oplaltit ',sum);
readln;
end.
[33 / 8] = 4
33 - 4*8 = 1
Десятичное 33 в восьмеричном представлении = 41
Алгоритм - Действия которые нужно выполнить строго в таком порядке , что бы получить желанный результат