8 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 36
1

Данны три вещественных числа a,b,c.Определить имеется ли среди них хотя бы одна пара равных между собой чисел.

20.12.2010, 18:38. Показов 4211. Ответов 2
Метки нет (Все метки)

братцы составте программу полность
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2010, 18:38
Ответы с готовыми решениями:

Определить, имеется ли хотя бы одна пара равных между собой чисел
даны три вещественных числа а,в,с. Определить, имеется ли среди них хотя бы одна пара равных между...

Определить, есть ли хотя бы одна пара равных между собой чисел
Даны три действительных числа a, b з. Определить, есть ли среди них хотя бы одна пара равных между...

Заданы три числа Определить есть ли среди них хотя бы одна пара равных по величине
помогите решить задачу. Заданы три числа Определить есть ли среди них хотя бы одна пара равных по...

Заданы три числа. Определить, есть ли среди них хотя бы одна пара одинаковых чисел
Решите, пожалуйста, такую задачу: Заданы три числа. Определить, есть ли среди них хотя бы одна...

2
Robin Bad на форуме
237 / 237 / 194
Регистрация: 14.12.2010
Сообщений: 513
20.12.2010, 18:52 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот так?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program doom_gibel;
uses crt;
var a, b, c:integer;
begin
clrscr;
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
If a=b then
begin
writeln('Число ',a,'=',b);
end;
If a=c then
begin
writeln('Число ',a,'=',c);
end;
If b=c then
begin
writeln('Число ',b,'=',c);
end;
If (a=b)and(b=c) then
begin
writeln('Все три числа равны');
end else
begin
writeln('Числа не равны');
end;readln;end.
Добавлено через 2 минуты
Кстати лучше else не ставить, а написать
Pascal
1
2
3
4
If (a<>b)and(a<>c)and(b<>c) then
begin
writeln('Числа не равны');
end;
0
8 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 36
20.12.2010, 21:14  [ТС] 3
нет ни так,давай как обычно
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.12.2010, 21:14
Помогаю со студенческими работами здесь

Определить, имеется ли среди чисел а, b, с хотя бы одна пара взаимно противоположных чисел
2)Определить, имеется ли среди чисел а, b, с хотя бы одна пара взаимно противоположных чисел;

Определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел
.Определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел.

Определить, имеется ли в одномерном числовом массиве хотя бы одна пара совпадающих по величине соседних чисел
Здравствуйте! Прошу помощи в решении задачи. Необходимо определить, имеется ли в одномерном...

Определить, верно ли, что среди чисел есть хотя бы одна пара взаимно противоположных
Среди чисел а , б ,с есть хотя бы одна пара взаимно противоположных чисел : Составить программу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru