//Прога на языке Паскаль:
var a, sum: double;
begin
write ('Введите первоначальную стоимость газеты: ');
readln (a);
sum:=a*50+(1.2*a*150);
write ('Заработок продавца: ', sum);
end.
Если задание - расположить в порядке возрастания запросы, то ответ таков:
3412
<span>а)1000011110101=4341
</span>1010010111011=5307
<span>110011001100110101=209717
</span>б)123=1111011
456=<span>111001000
1024=</span><span>10000000000
4095=</span><span>111111111111</span>
Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.