Var
A, B, X : Integer;
begin
Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет
Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:');<span>
</span> <span>Readln(A);
</span>
Writeln('Введите цену остальных газет:');<span>
</span> <span>Readln(X);
</span> if B <= 75 then // Условие: если газет 75 или меньше, то...
Writeln('Мальчик заработает ', B * A, 'рублей.')
else // Иначе...
Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');
end.
137 438 953 472 байт = 137438953472/1024 Кбайт = 134 217 728 Кбайт =
134 217 728/1024 Мбайт = 131 072 Мбайт = 131 072/1024 Гбайт = 128 Гбайт
Если делить не на 1024, а на 1000, то получится ≈ 137,5 Гбайт
А конфликт довольно простой - с точки зрения потребителя на изделии указан неверный объем диска.
Митеориты
астеройды
митеорды
планеты
звёзда
Var
a, n: integer;
begin
n := 0;
read(a);
while a > 0 do
begin
a := a div 10;
n := n + 1;
end;
if(n mod 2 = 0) and (n <> 0) then write('Верно')
else write('Неверно');
end.