Ответ:
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)
1*2^4+1*2^2+1*2^0 = 10101(2)
1*2^4+1*2^2+1*2^0 = 16+4+1 = 21(10)
Такая информация называется Достоверной
Const m=7;
var
a:array of array of integer;
ans:array of integer;
n,i,j:integer;
begin
readln(n);
SetLength(a,n);
for i:=0 to n-1 do SetLength(a[i],m);
SetLength(ans,n);
for i:=0 to n-1 do
begin
for j:=0 to m-1 do read(a[i,j]);
readln;
end;
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]>3 then ans[i]:=ans[i]+a[i,j];
for i:=0 to n-1 do writeln(ans[i]:4);
writeln;
end.
Пример:
3
0 1 2 3 4 5 6
7 7 7 7 7 7 7
0 1 2 3 3 2 10
15
49
10
