Program m;
var a,b,c:integer;
begin
readln(a,b);
if a<b
then c:=a
else c:=b;
if c mod 2 =0
then writeln ('наименьшее число = ',c , '; данное число чётное')
else writeln ('наименьшее число = ',c , '; данное число нечётное');
end.<span>
</span>
513 :16 = 32 ( <u>1</u> )
32 : 16= <u> 2</u> (<u>0</u>) ---> 513 = 201 (в 16с/с)
600 : 16 =37 ( <u>8</u> )
37: 16 =<u> 2</u> ( <u>5</u> )<u /> ---> 600 = 258 в 16с/с
2010 :16 = 125 ( 10=<u>A</u>)
125: 16 = <u>7</u> (13=<u>D</u>) ---> 2010 = 7DA в 16с/с
Существует два способа закрытия меню без выполнения какой-либо команды:
1. Повторно кликнуть по той же позиции меню.
2. Кликнуть на пустом месте в окне.
Общий вид цикла пока:
ПОКА <условие> ДЕЛАТЬ <действие>
Суть цикла:
Действие выполняется до тех пор, пока условие не станет ложным.
Пример:
А=1
ПОКА А<3 ДЕЛАТЬ А=А+1
Цикл закончится, когда переменная А станет равной 3.
Если условие изначально ложно, то цикл не выполнится ни разу.
Пример:
А=4
ПОКА А<3 ДЕЛАТЬ А=А+1
Цикл не выполнится ни разу и значение переменной А не измениться.
При составлении цикла ПОКА нужно обязательно следить, чтобы условие рано или поздно стало ложным, иначе цикл будет бесконечно выполняться.