Регистрация
GGGKazakhstan
13.05.2023 02:57
Информатика
Есть ответ 👍

. до 21:00 свойство
имя объекта
важный объект
документ (имя , объем , память , место нахождения

144
239
Посмотреть ответы 1

Ответы на вопрос:

новичок480
новичок480
4,6(35 оценок)

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.

Популярно: Информатика