Var n, s : integer;
begin
s := 0;
while 2 * 2 <> 5 do begin
readln(n);
if n < 0 then break;
if n > 100 then s := s + 1;
end;
writeln(s);
end.
101010₂ = 1×2⁵+0×2⁴+1×2³+0×2²+1×2¹+0×2⁰ = 32+8+2 = 42₁₀
4
5
8
3
9
1
2
6
10
7
я не знаю, может так
//Прога на языке Паскаль:
var a, sum: double;
begin
write ('Введите первоначальную стоимость газеты: ');
readln (a);
sum:=a*50+(1.2*a*150);
write ('Заработок продавца: ', sum);
end.