1985 год выпуска, переводим и получаем:
110011000101
Ответ: 6 единиц
в 1кбайте 8байтов значит 1444:8=180,5
Var n,a,max,i:integer;
begin
write('n = ');
readln(n);
max:=-30000;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if (abs(a) mod 10=3)and(a<0)and(a>max) then max:=a;
end;
if max=-30000 then writeln('Нет чисел, оканчивающихся на 3')
else writeln('max = ',max);
end.
Пример:
<span>n = 5
Вводите числа:
5
618
-703
103
-243
-815max = -243</span>
Const p1=10; p2=10;
var p:real;
begin
p:=100-(100+p1)*(100-p2)/100;
if p>0
then writeln('Товар подешевел на ',p:3:1,'%')
else writeln('Товар подорожал на ',-p:3:1,'%');
end.
Результат:
<span>Товар подешевел на 1.0%</span>