М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
нурбол5
нурбол5
21.04.2022 08:47 •  Информатика

Надо сделать алгоритм на тему решения вот (из трёх монет одинакового достоинства одна фальшивая (более лёгкая).как её найти с одного взвешивания на чашечных весах без гирь? )

👇
Ответ:
kolika2016
kolika2016
21.04.2022
Сравнить любые две монеты, если они равны значит третья фальшивая
4,6(2 оценок)
Открыть все ответы
Ответ:

Объяснение:

Система программирования — это система для разработки новых программ на конкретном языке программирования. Современные системы программирования обычно предоставляют пользователям мощные и удобные средства разработки программ

Система программирования включает следующие программные компоненты: редактор текста; транслятор с соответствующего языка; компоновщик (редактор связей);

Популярные системы программирования — Turbo Basic, Quick Basic, Turbo Pascal, Turbo C.

для создания програмы необходим дизайн и код

4,5(86 оценок)
Ответ:
araitokbasova
araitokbasova
21.04.2022

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.

4,6(65 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ