Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

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

5-9 класс

Ikaygusuz 04 июля 2014 г., 19:44:21 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Ukreinian
04 июля 2014 г., 22:35:21 (9 лет назад)

var a,b:integer;

begin

read(a,b);

if a>b then begin

a:=2*a*b;

b:=(a+b)/2 else  

b:=2*a*b;

a:=(a+b)/2;

end;

write (a,b);

end.

 

 

Ответить

Читайте также

Составить программу, определяющую, является ли данное утверждение истинным:Двузначное число А начинается на 3

Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100

Помогите, пожалуйста, решить самостоятельную:1.Составьте блок-схему и программу вычисления значения функции

(картинка дана ниже)

2.Составьте программу, определяющую, является ли данное число делителем числа 3.

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

Заранее спасибо.



Вы находитесь на странице вопроса "Составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее – полусуммой этих чисел", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.