Ван нужно перевести килобайты в байты?
0,25 Кб = 256 б
Var
p, q: real;
begin
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) -> ');
readln(p);
write('Вес яблок (кг) -> ');
readln(q);
writeln('Стоимость покупки: ', (p * q):6:2, ' руб.');
end.
компьютерые сети, в зависимости от охватываемой территории подразделяются на:
локальные, региональные и глобальные.