Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Объяснение:
Модельдеу - білім объектілерін олардың модельдері бойынша зерттеу; осы құбылыстарға түсініктеме алу, сондай-ақ зерттеушіні қызықтыратын құбылыстарды болжау мақсатында өмірдегі объектілердің, процестердің немесе құбылыстардың модельдерін құру және зерттеу.
Модельдеу түрлері
Ғылыми модельдеу нәтижесінің мысалы. Атмосферадағы химиялық процестер мен тасымалдау процестерінің сызбасы
Ғылым мен техникадағы «модель» ұғымының екіұштылығына байланысты модельдеу түрлерінің бірыңғай жіктемесі жоқ: классификация модельдердің сипатына қарай, модельденетін объектілердің табиғатына сәйкес, модельдеуді қолдану салаларына сәйкес (инженерия, физика ғылымдарында, кибернетикада және т.б.) жүзеге асырылуы мүмкін.
Қазіргі уақытта модельдеу технологиясы мен қолдану саласына сәйкес модельдеудің келесі негізгі түрлері бөлінеді:
Ақпараттық модельдеу
Компьютерлік модельдеу
Математикалық модельдеу
Биологиялық модельдеу
Қоғамдық-тарихи процестерді математикалық модельдеу
Математикалық және картографиялық модельдеу
Молекулалық модельдеу
Сандық модельдеу
Логикалық модельдеу
Педагогикалық модельдеу
Психологиялық модельдеу
Статистикалық модельдеу
Құрылымдық модельдеу
Физиканы модельдеу
Экономикалық және математикалық модельдеу
Имитациялық модельдеу
Эволюциялық модельдеу
Графикалық және геометриялық модельдеу
Толық ауқымды модельдеу
Метамодельдеу
Объяснение:
Передвигаться по клеткам, красить клетки и исполнять циклы.