<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c1:=ReadReal('Цена первой покупки:');
var c2:=ReadReal('Цена второй покупки:');
var c3:=ReadReal('Цена третьей покупки:');
var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s);
var p:=ReadReal('Внесена сумма:');
Writeln('Причитается сдача: ',p-s)
end.
<u>Пример</u>
Цена первой покупки: 152.40
Цена второй покупки: 375
Цена третьей покупки: 140.62
Сумма к оплате: 668.02
Внесена сумма: 700
Причитается сдача: 31.98
Для кодирования использовалась восьмибитная кодировка, значит на один символ приходится 1 байт памяти.
Количество символов равно 256*40*60
Каждый символ равен 1 байту, значит объем текста в байтах равен количеству символов.
Переведём объем в килобайты:
(256*40*60) / 1024 = (2^8*40*60) / 2^10 = 2^(-2)*40*60 = 600 Кбайт
<span>P.S.: Сильно хотел написать ответ во¬т т¬ак, чт¬о б¬ы н¬ел¬ьз¬я б¬ыл¬о п¬ро¬чи¬тат¬ь, но Alviko не оценит:(</span>
Графической информации, текстовой информации