вот 3 варианта решения задачи:
1. с временной целочисленной переменной вместо булеан.
var
a, f : integer;
begin
write('введите число: ');
readln(a);
while a div 10 > 0 do begin
if (a mod 10) >= ((a mod 100) div 10) then f := 1;
a := a div 10;
end;
if f = 0 then writeln('ДА') else writeln('НЕТ');
end.
2. с строчной переменной которой присваивается текст ответа.
var
a : integer;
f : string := 'ДА';
begin
write('введите число: ');
readln(a);
while a div 10 > 0 do begin
if (a mod 10) >= ((a mod 100) div 10) then f := 'НЕТ';
a := a div 10;
end;
writeln(f);
end.
3. без дополнительных переменных но с оператором break.
var
a : integer;
begin
write('введите число: ');
readln(a);
while a div 10 > 0 do begin
if (a mod 10) >= ((a mod 100) div 10) then begin
writeln('НЕТ');
break;
end;
a := a div 10;
if a < 10 then writeln('ДА');
end;
end.
I=k*i
I=32*32*35*8/8*1024*1024=35 Кб
ответ 4.
Если тебе интересно, как можно посчитать без калькулятора, то оставь комментарий под этим ответом, я тебе объясню
Необходимо представить все данные в виде двойки в N степени: страницы, строки, символы, кодировка.
32 - это 2^5 степени, вы должны были учить на первых уроках информатики значение двойки от 1 степени до 10.
35 - в степени двойки не представляется, оставим так. Ее будем умножать с остальными цифрами.
8 бит - 2^3
Формула нахождения информационного объема I=k*i
k - кол-во символов, i - кодировка
Подставляем I=2^5+2^5*35+2^3
При умножении степеней с одинаковым основанием основание остается прежним, показатели складываются
I=2 в 13 степени *35 Бит
Переведем в байт. В 1 байте - 8 бит, это 2^3 степени, следовательно отнимем 3 от нашей степени
I=2 в 10 степени *35
Переведем в Кбайт.
В 1 кбайте - 1024 байт. А 2^10 это 1024. Отнимаем
I=35
Осталось 35, так как степени ушли, а любое число в нулевой степени равно 1
Вот так получилось 35 Кбайт.