Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Hicoleta
13.07.2020 19:20 •
Информатика
Даны три целых числа. определите, сколько среди них . программа должна вывести одно из чисел: ■ 3 – если все ; ■ 2 – если два совпадает; ■ 0 – если все числа различны.
Показать ответ
Ответ:
nlapenko
26.08.2020 23:29
Var a,b,c:integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln(3)
else if (a=b)or(b=c)or(a=c) then writeln(2)
else writeln(0);
end.
Пример:
5 7 5
2
0,0
(0 оценок)
Популярные вопросы: Информатика
Lizkic
06.02.2020 03:05
For i in range (k,n,m)яку виконує команду?...
DemonDogs
01.06.2021 17:12
Выбери визуальные HTML-редакторы.Web CreatorNote TabWeb Development StudioWeb Site X5HtmlDocEdit...
kem8
02.07.2020 15:02
Выбери визуальные HTML-редакторы.A4 DeskTOWebTigerPadNote TabCoffeeCup Visual Site Designer...
Лилюсечка
20.12.2021 15:36
Построить таблицу квадратов в формате такой таблицы: 1^2 2^2 3^2 … 〖10〗^2 〖11〗^2 〖12〗^2 〖13〗^2 … 〖20〗^2 〖21〗^2 〖22〗^2 〖23〗^2 … 〖30〗^2 … … … … … 〖91〗^2 〖92〗^2 〖93〗^2...
Aksvat1999
11.10.2020 03:55
Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X = 3) И НЕ (X = 7)....
zhenianet
04.03.2020 12:24
Носитель информации 1. 9 букв, 3 буква Н 2. 7 букв, 2 буква И...
АлисаAprel
08.02.2022 00:51
В массиве хранится информация о стоимости книг . Составить программу, которая выводит на экран номера книг, которые стоят ниже средней стоимости всех этих книг. В C++...
Milkiskiss
18.02.2022 01:27
Практична робота. Створення програм із кнопками та написами У середовищі розробки програмного забезпечення Python створіть проект, який відкриває вікно із двома кнопками....
alex0the0human
31.03.2021 10:59
У вас произошло радостное событие — родители подарили вам сканер. Что теперь началось… Вы решили сканировать свои дипломы, которые получили за различные достижения....
Updatek
06.02.2020 03:59
В кодировке UTF-16 каждый символ кодируется 16 битами. Никита написал текст (в нём нет лишних пробелов): «Врач, юрист, акушер, инженер, архивист, кардиолог — профессии»....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln(3)
else if (a=b)or(b=c)or(a=c) then writeln(2)
else writeln(0);
end.
Пример:
5 7 5
2