составьте программу,заменяющую из двух данных чисел большее число удвоенным произведением,а меньшее-полусуммой этих чисел.
5-9 класс
|
98margarita98
21 апр. 2014 г., 23:37:04 (10 лет назад)
Dily1108
22 апр. 2014 г., 3:02:59 (10 лет назад)
ну а вдруг числа отрицатильные)) а abs делает их положительными)
var a,b:real;
begin cls;
write('vvedite a '); readln(a);
write('vvedite b '); readln(b);
If a>b then
begin
a:=2*a*b;
b:=(a+b)/2;
end
else
begin
a:=(a+b)/2;
b:=2*a*b;
end; writeln('a= ',a:0:2,' ','b= ',b:0:2);
end.
Ответить
Другие вопросы из категории
Читайте также
Составить программу, определяющую, является ли данное утверждение истинным:Двузначное число А начинается на 3
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100
Помогите, пожалуйста, решить самостоятельную:1.Составьте блок-схему и программу вычисления значения функции
(картинка дана ниже)
Заранее спасибо.
2.Составьте программу, определяющую, является ли данное число делителем числа 3.
Заранее спасибо.
составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел,а большее из двух данных чисел-на произведение этих
чисел.помогите пожалуйста,очень надо!
Вы находитесь на странице вопроса "составьте программу,заменяющую из двух данных чисел большее число удвоенным произведением,а меньшее-полусуммой этих чисел.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.