Напишите программу в Паскале, которая получает три числа и выводит количество натуральных одинаковых чисел в этой цепочке. пример: введите три
5-9 класс
|
чила:
5 5 5
все числа одинаковые.
спасибо
Если в три переменные:
var a,b,c:integer;
begin
writeln ('Введите 3 числа');
read (a,b,c);
if (a=b)or (a=c) or (b=c) then
begin
if (a>1) and (b>1) and (c>1)and (a=b) and (a=c) and (b=c) then //Одно ненужное условие для наглядности
writeln ('Все числа одинаковые');
if ((a>1) and (b>1) and (a=b)) or ((a>1) and (c>1) and (a=c)) or ((b>1) and (c>1) and (b=c)) then writeln (2);
end
else writeln ('Нет одинаковых чисел');
end.
числа вводятся в одну переменную или в три?
Другие вопросы из категории
География - это наука...
Фонетика - это раздел науки о...
Ботаника - это раздел науки о...
Имя существительное - это самостоятельная часть речи,...
Глагол - это самостоятельная часть речи,...
Земледельцы - это люди...
Животноводы - это люди...
Тяжелая промышленность - это...
Легкая промышленность - это...
Прошу помощи,срочно надо...
на дно сосудов p=dgh( g=9,8м\с²)
6 сосудов( высота 1сосуда 7, высота 2 сосуда 4, высота 3 сосуда 10, высота 4 сосуда 6, высота 5 сосуда 5, высота 6 сосуда 3)
странице?? Напишите пожалуйста решение.
Читайте также
программу, которая запрашивала три числа, подсчитывала их средне и сумму и на экран выводила фразу "Их среднее равно..." и "Их сумма равна..."
пути:
направо,-"Коня потеряешь"
налево,-"голову сложишь"
вперёд,-"невесту найдёшь"
2.Составить прогрмму,которая определяет положительное число или отрицательное.
3.Дано целое число А.Если значение А>0,то необходимо его уыеличить на единицу.Если В<0,то уменьшить на единицу.
Зарание спасибо :)
2.Условный оператор(ветвление)
Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?
3.Циклы
Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.
4.Одномерные массивы
Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].
5.Двумерные массивы
Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.