Помогите, пожалуйста, составить программу в Паскаль. Определить, имеется ли среди чисел a, b, c хотя бы два числа равные.
5-9 класс
|
Vtetelya
14 дек. 2014 г., 1:10:34 (9 лет назад)
M18121925ja
14 дек. 2014 г., 2:37:17 (9 лет назад)
Program Program1;
Var
a,b,c:integer;
begin
write('Введите значение A: ');
readln(a);
write('Введите значение B: ');
readln(b);
write('Введите значение C: ');
readln(c);
if (a=b) or (b=c) or (c=a) then
writeln('Есть равные числа')
else
writeln('Нет равных чисел');
end.
Ответить
Другие вопросы из категории
1. Напишите программу, которая вводит трехзначное число и разбивает
его на цифры. Например, при вводе числа 123 программа должна
вывести 1, 2, 3.
2. Напишите программу, которая вводит возраст человека (число, не
превосходящее 120) и выводит на экран этот возраст со словом «»год,
«года» , «лет» . например «21 год», «22 года», «15 лет»
Помогите пожалуйста !!!!
дайте наиболее точное общее имя каждой группе объектов
Помогите пожалуйста
Читайте также
Вы находитесь на странице вопроса "Помогите, пожалуйста, составить программу в Паскаль. Определить, имеется ли среди чисел a, b, c хотя бы два числа равные.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.