Вообще, это можно сделать при помощи программы ABBYY FineReader, она преобразует картинку (то есть скан) в текст, после чего можно его редактировать в текстовом редакторе
Готово.....................
Оператор AND возвращает единицу только при a и b равных единице.
Оператор NOT возвращает противоположное значение.
Значит при A = 1 и B = 0 тождество верно.
(NOT 0) AND 1 = 1
В отличие от цикла while, условие вычисляется после
очередной итерации цикла, и если оно истинно, то происходит выход из цикла.
Таким образом, операторы, образующие тело цикла оператора
repeat, выполняются по крайней мере один раз.
Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется). Как только это условие выполнится, происходит выход из цикла.
1)Цикл выполнится 1 раз:
i:=i-1=-1
s=-1/1=-1
-1<1 условие выполняется, цикл прерывается.
2)цикл выполнится 3 раза:
1. i:=i+1=1; 1>2 условие не выполняется, цикл продолжается.
2. i:=i+1=2; 2>2 условие не выполняется, цикл продолжается.
3. i:=i+1=3 3>2 условие выполняется, цикл прерывается.
Var
v, u, h, d, vp: longint;
begin
readln(v, u, h);
vp := v - u;
d := h div vp;
if (h mod vp <> 0) then
inc(d);
writeln(d);
end.