Эта программа, как я понял, сделает несколько шагов шашкой.
а) в результате работы оператора write (a) будет напечатано значение переменной а в данный момент.
б) в результате работы оператора write ('a') будет напечатана просто буква а
в) в результате работы оператора write ('a=', a) будет напечатан пример, в котором а=ЧИСЛО - значение переменной в данный момент.
1) 70
2) 427
3)50
4) нет вопроса
5) 3400
6) 2200
7)277
8) 250
9) 533
10) 140
Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
Для него является информацией гарафической