Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Рена
0 / 0 / 0
Регистрация: 14.10.2010
Сообщений: 2
1

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

17.10.2010, 18:42. Просмотров 1115. Ответов 2
Метки нет (Все метки)

составьте программу заменяющую из двух данных чисел меньшее число суммой а большее произведение этих чисел
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2010, 18:42
Ответы с готовыми решениями:

Составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее – полусуммой этих чисел.
Составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а...

Меньшее из двух чисел заменить половиной их суммы,а большее их удвоенным произведением.
уважаемые форумчане помогите или объясните )как сделать эту программу. Даны действительные...

Подпрограмма: меньшее из двух чисел заменить их полусуммой, а большее - их удвоенным произведением
Оформите через процедуру или функцию действительные числа x, y. Меньшее из этих двух чисел...

Меньшее из этих двух чисел замененить половиной их суммы , а большее - их удвоенным произведением.
Даны действительные числа x и y , не равные друг другу. Меньшее из этих двух чисел заменено...

Заменить из двух данных чисел меньшее число модулем разности
всем привет) 1.составьте программу, Заменяющую иЗ двух данных чисел меньшее число модулем...

2
Puporev
Модератор
56819 / 43418 / 30018
Регистрация: 18.05.2008
Сообщений: 103,420
17.10.2010, 18:48 2
Заменить из двух данных чисел меньшее число модулем разности
Посмотрите там и чуть переделайте, модули уберите.
0
2rka
0 / 0 / 1
Регистрация: 14.10.2010
Сообщений: 1
17.10.2010, 20:54 3
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program Rena;
Var a,b,c,d:integer;
begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
If a>b then 
Begin
c:=a+b;
d:=a*b;
end
else  
begin
c:=a*b;
d:=a+b;
end;
Writeln('A=',d);
Writeln('B=',c);
Readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2010, 20:54

Меньшее из двух чисел заменить его абсолютной величиной.
Надо построить блок-схему и написать программки: 1. Меньшее из двух чисел заменить его...

найти среди чисел a,b,c наименьшее и заменить им число,большее из них
помогите написать на паскале:найти среди чисел a,b,c наименьшее и заменить им число,большее из них.

Если сумма двух чисел меньше числа С,заданого с клавиатуры, то наименьшие из них заменить их удвоенным произведением
С клавиатуры введены 2 целый числа А и Б.Если их сумма меньше числа С,заданого с клавиатуры,то...


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

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

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