------------------------------------
| X X |
| |
| X |
| |
| |
| X X |
------------------------------------
X - это стулья.
1) Шифр Цезаря со сдвигом 2: Кожаыкл ижнвпкж - кыжф дрйорипруфю, пж кожаыкл ижнвпкж - кыжф сткщкпх
2)Шифр с заменой букв на цифры(использовано первые буквы клавиатуры): еугкнггк кенуену - уецкгг нуцеецншйгуеешз, енц уенцкнну цнйшнкеу - уцнгу унцггуц
Sub HOK()
Dim c As Long, NOK As Long
a = CInt(InputBox("Введите первое число"))
b = CInt(InputBox("Введите второе число"))
If a = b Then
NOK = a
Else
c = a * b
Do
If a > b Then a = a - b Else b = b - a
Loop Until a = b
NOK = c / a
End If
MsgBox "НОК=" + Str(NOK)
End Sub
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.