Статистика
Всего в нашей базе более 4 323 778 вопросов и 6 438 794 ответов!

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

5-9 класс

Леннарoчка 11 янв. 2015 г., 2:19:02 (3 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Sanet888
11 янв. 2015 г., 4:30:42 (3 года назад)

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.

Ответить

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



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