1. Сначала следует запрос на числа, т.е. нужно вывести строку. Затем вводятся сами числа.
2. Условный оператор записывается как "if условие then оператор1 else оператор2". Все, что после оператор1 можно отбросить.
<span>Var a,b,c:real;
</span><span>begin
</span><span>writeln('введите2 числа');
</span><span>read(a,b);
</span><span>if(a>b) then
</span><span>c:=a/b
</span><span>else
</span><span>c:=b/a;
</span><span>writeln('частное=',c)
</span><span>end.</span>
Var
n:integer;
Begin
Write('n = ');ReadLn(n);
if n mod 2 = 0 then WriteLn('Не любит')
else WriteLn('Любит')
End.
Любой вопрос, на который можно ответить с определённостью "да" или "нет" несёт в себе 1 бит информации.
Примеры: "Железо - это металл или нет?","В корзине 2 шара - белый и чёрный. Вынимают наугад один шар. Вопрос, это белый шар?" и т.д. и т.п.
Это чаше зависит, от версии винды: Vista, Xp, 7, 8. У каждого по своему, но чаше всего так: