Ответ:5
Зашифрован текст «сколькогласныхбукввсловекриптография». Гласных букв в слове криптография 5, это и есть ответ в этой задаче.
Var
n,m,d,k,Max,Maxk:integer;
Begin
Write('n = ');ReadLn(n);
Write('m = ');ReadLn(m);
Maxk:=0;
For n:= m downto n do
Begin
if n>1 then k:=2
else k:=1;
d:=n div 2;
While d>1 do
Begin
if n mod d = 0 then k:=k+1;
d:=d-1
End;
if k>=Maxk then
Begin
Maxk:=k;
Max:=n;
End;
End;
WriteLn('Искомое число: ',Max);
WriteLn('Количество делителей этого числа: ',Maxk);
End.
<span>N=A+B+C-N
</span>Если N=A+B, то N=A+B+C-N=A+B+C-С=A+B, следовательно N=C
<span>N=A
IF N > В THEN N = В (это условие надо нарушить A<B)
IF N < C THEN N = C </span>(это условие надо сделать A<С)
A<B и A<С
<span>
Ответ: </span><span>в) А < В и А < С</span><span>
</span>
Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while (a<>0) do
begin
if(a mod 5=0) or (a mod 7=0) then
k:=k+1;
readln(a);
end;
writeln(k);
end.