Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Vadim050596
1 / 1 / 1
Регистрация: 03.10.2013
Сообщений: 34
#1

Если числа не равны,то заменив каждое из них одним и тем же числом, равным большему из исходных,а если равны то заменив числа нулями. - Turbo Pascal

06.10.2013, 18:15. Просмотров 469. Ответов 1
Метки нет (Все метки)

Даны целые числа ш,и: Если числа не равны,то заменив каждое из них одним и тем же числом, равным большему из исходны,а если равны то заменив числа нулями.
http://www.cyberforum.ru/turbo-pascal/thread234330.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2013, 18:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Если числа не равны,то заменив каждое из них одним и тем же числом, равным большему из исходных,а если равны то заменив числа нулями. (Turbo Pascal):

Если числа не равны, то заменить каждое одним числом, равным большему из исходных
Помогите решить! Если числа не равны то заменить каждое из них одним и тем же...

Если числа не равны, то заменить меньшее из них большим, а если равны — заменить нулями
Даны целые числа m и n. Если числа не равны, то заменить меньшее из них...

Если числа отрицательны и не равны между собой, то каждое число замените наибольшим из них
Введите с клавиатуры три числа:A,B,C. ЕслиA>B>C>0,то замените все числа их...

Если эти числа не равны друг другу, то замените их нулями в противном случае заменить их единицами
Записать в pascal Задачу Даны числа х и у если эти числа не равны друг другу,...

Если два числа не равны, то найти их сумму и произведение, если произведение больше суммы, то определить, на сколько
Даны два числа. Если они не равны, то найти их сумму и произведение. Если...

1
Mishania
79 / 79 / 84
Регистрация: 26.09.2012
Сообщений: 341
07.10.2013, 17:40 #2
Лучший ответ Сообщение было отмечено Vadim050596 как решение

Решение

Vadim050596,

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
   a,b: real;
begin
     Write('a:'); Readln(a);
     Write('b:'); Readln(b);
     if a>b then b:=a
            else
     if b>a then a:=b
            else
     if a=b then begin
            a:=0;
            b:=0;
            end;
     Writeln('a=',a:10:2,' ','b=',b:10:2);
     Readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 17:40
Привет! Вот еще темы с решениями:

Введите с клавиатуры три числа. Если числа равны, то увеличьте их в три раза и выведите результаты на экран
помогите пожалуйста Введите с клавиатуры три числа: X, У, Z, если числа...

Даны два числа, если равны посчитать квадрат их суммы
Даны два числа, если равны посчитать квадрат их суммы,иначе вычислить...

Введите с клавиатуры 3 числа: a, b, c. Если все они равны, то первое увеличьте в 10 раз
Помогите пожэалуйста Введите с клавиатуры три числа: a, b, c. Если все они...

Если оба числа отрицательные, то каждое из них увеличить на 0,5
Даны действительные х1, х2,....хn; у1, у2,....уn. Преобразовать данные...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru