Смотри,на 50 тумбо символов ушло 250 бит инфы,значит на один символ 250/50=5 бит.У юмбы на 30 символов ушло 250+50=300 бит инфы,значит на 1 символ у них ушло 300/30=10 бит.Формула для нахождения количества символов у нас N=2^i,где i- кол-во бит на 1 символ,а N-число символов в алфавите.У тумбо 2^5=32 символа,у юмбо 2^10=1024 символа.Вроде верно
Var
a, i, max: integer;
sum: real;
begin
max := 0;
sum := 0;
i := 0;
repeat
write('Введите число: ');
readln(a);
if a > 0
then begin
sum := sum + a;
i := i + 1;
end;
if max < a
then max := a;
until a = 0;
writeln(#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max);
end.
Точно не уверен но вроде так:
var
s:real;
begin
writeln ('Введите сумму покупки: ');
readln(s);
if s>1000 then
begin
writeln('Сумма покупки с учётом скидки: ',s*0.9:0:2,' руб.');
end
else
writeln('Сумма покупки: ',s:0:2,' руб.');
end.