В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
katyasha0504
katyasha0504
31.05.2021 11:57 •  Информатика

Щоб додати формулу потрібно обрати інструмент позначений цифрою?

Показать ответ
Ответ:
ученик1890
ученик1890
31.10.2021 21:28

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.

Подробнее - на -

0,0(0 оценок)
Ответ:
mariasmiles
mariasmiles
23.09.2022 21:22

ель примеро с огромным хером у меня проблема ламба или фера я сам не знаю как тебе удобнее будет делать в этом случае я не помню как тебе такой вариант возможен по истории

Черный Rollce Roice забираю джекпот со мной baby мама на нёё потрачу все, зделал новый мув и я заберу долг я у нёё есть парень,но походу он лох.

Объяснение:

ель примеро с огромным хером у меня проблема ламба или фера я сам не знаю как тебе удобнее будет делать в этом случае я не помню как тебе такой вариант возможен по истории

Черный Rollce Roice забираю джекпот со мной baby мама на нёё потрачу все, зделал новый мув и я заберу долг я у нёё есть парень,но походу он лох.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота