Потому что компьютер принимает всю информацию в формате 0 и 1, вся информация в компьютере, это нечто такое: 00011011001 01010101 010100 10 010 000 0 0 10101010 101 01111 111 0 01010 и тд. А это двоичная система счисления (в ней используется 2 символа 0 и 1)
Утверждение, которому всегда можно поставить в соответствие одно из двух логических значений. Логическое высказывание принято обозначать заглавными латинскими буквами.
a=2
b=8
цикл произошел два раза из-за a:=a+1
значит x равен от 100 до 9999(при прохождении получаются числа от 0,01 до 0,9999)
теперь остался b:
b в начале был равен и получил 8 при цикле. mod узнаёт остаток деления на 100 которое прошло 2 раза. посмотрим если выберем 9999
9999(остаток 99) -> 99,99(остаток 99+99). вывод: программа под буквой b вычислила сумма всех двузначных чисел. значит самое максимальное 800( 8 и 0) т.к. если выбрать больше 999 то 1000 это сумма 10 и 0 что не подходит. а нам надо самое максимальное.
Ответ:800
Const
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i]:3, ' ');
end
else readln(a[i]);
end;
writeln();
{изменение элементов}
for i := 1 to n do
begin
if a[i] < 0 then
a[i] := abs(a[i]);
write(a[i]:3, ' ');
end;
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
ч, y: ЦЕЛ;
УКАЗ
ч := Приём.Число();
y := (ч ДЕЛИТЬ 100 ОСТАТОК 10) * 1000 +
(ч ДЕЛИТЬ 1000) * 100 +
(ч ОСТАТОК 10) * 10 +
(ч ДЕЛИТЬ 10 ОСТАТОК 10);
Вывод.ЧЦел("^%d", y, 0, 0, 0)
КОН Задание.