(начало)
/ввод a,b,c/
/вывод max(min(a;b),min(b;c),min(a;c))/
(конец)
Procedure CKR(var M,N:integer);
Var d:integer;
Begin
if M>N then d:=N
else d:=M;
While d>1 do
Begin
if (M mod d = 0)and(N mod d = 0) then
Begin
M:=M div d;
N:=N div d;
if M>N then d:=N
else d:=M
End;
d:=d-1
End;
End;
Var M,N:integer;
Begin
Write('M = ');ReadLn(M);
Write('N = ');ReadLn(N);
CKR(M,N);
WriteLn(M,'/',N);
End.
Ответ:
10 Символов В слове Родной Край
6 Символов Родной 4 Край
30 Цифр 18 для слова Родной 12 Для край
18:6=3 на каждую букву
12:4=3 на каждую
110=Р
101=О
001=Д
100=Н
101=О
010=Й
011=К
110=Р
000=А
010=Й
156:2=78(0)
78:2=39(0)
39:2=19(1)
19:2=9(1)
9:2=4(1)
4:2=2(0)
2:2=1(0)
Ответ:10011100
4. В первом имени первая буква М - согласная. Условие верно.
В остальных именах это условие неверно, т.к. они начинаются все с гласной буквы.
Теперь проверим второе условие.
Вторая буква должна быть гласной, это не выполняется для последних трех имен, следовательно, они не удовлетворяют и второму условию.
Ответ: 1.