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

Question

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

Нюра

составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел,а большее из двух данных чисел на среднюю геометрическую этих чисел help me!!!please

Есть ответ

17.12.2022

436

Ответ

Answer 1 · 17.12.2022

program lkcfndsl;

uses crt;

var a,b,s,g:real;

begin

clrscr;

readln(a,b);

s:=(a+b)/2;

g:=sqrt(a*b);

if a>b then a:=g else a:=s;

if b>a then b:=g else b:=s;

writeln(a,b);

readln;

end.

Надеюсь так понял.

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

Ответ

program lkcfndsl; uses crt; var a,b,s,g:real; begin clrscr; readln(a,b); s:=(a+b)/2; g:=sqrt(a*b); if a>b then a:=g else a:=s; if b>a then b:=g else b:=s; writeln(a,b); readln; end. Надеюсь так понял.

program lkcfndsl;

uses crt;

var a,b,s,g:real;

begin

clrscr;

readln(a,b);

s:=(a+b)/2;

g:=sqrt(a*b);

if a>b then a:=g else a:=s;

if b>a then b:=g else b:=s;

writeln(a,b);

readln;

end.

Надеюсь так понял.