Ответ:
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: array [1..7] of real
var max: real, i: integer
begin
for i:=1 to 7 do readln (A[i]);
max = A[1];
for i:=2 to 7 do if A[i] > max then max := A[i];
writeln (max);
end.
Какое трехзначное число дано?
Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно)
Вот прога на паскале:
program sym
var p:array[1..12] of integer;
s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
p[i]:=i*i; //если нет уже готового массива
For i:=1 to 12 do
s:=s+p[i];
write(s)
end.
Ну тут кстати массив излишен, если надо просто найти сумму:
program sym1
var s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
s:=s+i*i;
write(s)
end.
Я у себя не проверял, но должно работать)
1)
score = int(input("X - "))
tips = score * 4 * 0.15
print(tips)
2)
nbs = int(input("Цена тетради (руб.) -> "))
cases = int(input("Цена обложки (руб.) -> "))
sets = int(input("Кол-во комплектов (шт.) -> "))
cost = (nbs + cases) * sets
print("Стоимость покупки: " + str(cost) + " руб.")