Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
HanjiZ
14.09.2021 12:17 •
Информатика
Напишите программу, которая получает 3 целых числа и определяет сколько среди них одинаковых. паскаль 8 класс
Показать ответ
Ответ:
мик104
14.10.2020 18:25
Var a,b,c:integer;
begin.
writeln('a, b, c:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln(3)
else if (a=b)or(a=c)or(b=c) then writeln(2)
else writeln(0);
end.
Пример:
a, b, c:
1 2 1.
2.
0,0
(0 оценок)
Популярные вопросы: Информатика
Altama
16.02.2020 00:23
:= что это на языке программирования паскаль...
alexandrvseznaika
23.05.2020 16:52
Дан одномерный массив 1..n(n любое значение) нужно заполнить массив случайными числами, числа не должны повторяться во всем массиве...
gorbovaekateri
03.08.2022 21:28
Какой получится результат если сложить переменные целого и вещественного типа 6 класс...
olgakazakova20oy0u8c
31.12.2021 05:49
Даны два числа.посчитать сколько среди них четных. составить программу паскаль...
zaxarenko2018
13.02.2023 16:26
Дано положительное целое число. Определите номер этого числа в десятичной запятой создать программу....
Kirillf2006
06.06.2020 01:45
Выполните действия 242 243...
TaehyungHolod
30.01.2020 17:46
2. Надійка надрукувала 36 сторінок тексту, а ТарасикРазом вони витратили на цю роботу 7 год. Скільки часу працювавКожен, якщо продуктивність праці в них однакова?-...
dylanboy
08.01.2020 04:11
Главная мысль мультика приключение кузнечика Кузи??...
Aisezim2002
22.02.2022 21:57
Установіть відповідність між хімічною реакцією та її типс 1) 2CrO, →2Cr0, +0, a) Сполучення 2) Li,0+2HBr LiBr + H,0 б) Розкладу 3) В,0, + 3H,0 3 2H, ВО, в) Заміщення...
MrGleb3000
22.02.2022 21:57
Які бувають рішення?Як вони впливають на життя і здоров я людей?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin.
writeln('a, b, c:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln(3)
else if (a=b)or(a=c)or(b=c) then writeln(2)
else writeln(0);
end.
Пример:
a, b, c:
1 2 1.
2.