Составьте программу, заменяющую больше из двух данных чисел удвоенным произведением, а меньшее полусуммой этих чисел
5-9 класс
|
Леннарoчка
11 янв. 2015 г., 2:19:02 (9 лет назад)
Sanet888
11 янв. 2015 г., 4:30:42 (9 лет назад)
uses crt;
var a,b,c:real;
begin
read(a,b);
c:=a;
if a>b then
begin
a:=2*a*b;
b:=(c+b)/2;
end
else begin
a:=(a+b)/2;
b:=2*c*b;
end;
writeln;
write(a,' ',b);
end.
Ответить
Другие вопросы из категории
какие слова зашифрованы
1) ?=%№
2) @:$:@
3) %!%(%
4) *%+*
5) @^$#@
(киоск,торт,шалаш,олово,книга)
Читайте также
составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел,а большее из двух данных чисел-на произведение этих
чисел.помогите пожалуйста,очень надо!
составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел,а большее из двух данных чисел на среднюю
геометрическую этих чисел help me!!!please
Вы находитесь на странице вопроса "Составьте программу, заменяющую больше из двух данных чисел удвоенным произведением, а меньшее полусуммой этих чисел", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.