использовать Робот
алг
нач
нц пока снизу не свободно
закрасить
вправо
кц
нц пока снизу свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока справа не свободно
закрасить
вверх
кц
нц пока справа свободно
вверх
кц
нц пока справа не свободно
закрасить
вверх
кц
кон
Она называется полиномом седьмой степени. Математику учите...
Ответ:
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)
11 девочек м 10 мальчиков.
<span>1011= 1*2^3+0*2^2+1*2^1+1*2^0=8+0+2+1=11
</span>1010= 1*2^3+0*2^2+1*2^1+0*2^0=8+0+2+0=10
Var k,n,i,j:integer;
a:array[1..100,1..100] of integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('A[',i,',',j,']=');
readln(a[i,j]);
end; k:=1;
for i:=1 to n do
for j:=1 to n do
if j mod 2=0 then k:=k*a[i,j];
writeln(k);
<span>end.</span>
