Для чого призначена кеш пам'ять​

var i,n,k,a:integer;

begin

write('Введите количество проданных газет ');

readln (k);

write('Введите сколько получает продавец с продажи каждой из первых 50 газет ');

readln (a);

if k<=50 then writeln ('заработок продавца ',k*a)//если продано ровно 50 газет или меньше

else writeln ('Заработок продавца ',50*a+((k-50)*a*1.2))//если продано больше 50 газет

end.

Объяснение:

Если продано ровно 50 газет или меньше , то заработок рассчитывается просто умножением количества газет (k) на стоимость продажи каждой из первых 50 газет (a).

Если продано больше 50 газет, то вычисляем сколько продавец получит за первые 50 газет (50*a - умножаем 50 газет на стоимость продажи каждой из первых 50 газет (a)) и к этому числу прибавляем деньги полученные за продажу остальных газет ((k-50)*a*1.2) - умножаем количество газет проданных после первых 50 (k-50) на стоимость газет с учётом процентов a*1,2)

Первый вариант:

Var
   A:real;
   k:integer;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.')
else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')
End.

Var k:integer;
    S,A:real;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then S:=k*A
else S:=A*((k-50)*1.2+50);
WriteLn('Заработок продавца: ',S:0:2,' руб.');
End.

Пример работы программы:

Стоимость одной газеты: 30.15
Количество газет: 200
Заработок продавца: 6934.50 руб.