помогите пожалуйста написать программу)))Даны два числа. Наименьшее из этих чисе...

December 2021 1 19 Report

помогите пожалуйста написать программу)))
Даны два числа. Наименьшее из этих чисел возвести в квадрат, наибольшее в куб. Найти среднее арифметическое полученных данных.

Answers & Comments

kage1998 Program gt;
var a,b,s,q:real;
begin
readln(a,b);
q:=0;
if(a>b)then begin
a:=a*a*a;
b:=b*b;
q:=1;
end;
if(q=0)then begin
b:=b*b*b;
a:=a*a;
end;
s:=(a+b)/2;
writeln(a,' ',b,' ',s);
end.

viollaN Спасибо)

Answers & Comments

vychislite rn soka spelogo apelsina v 250 ml kotorogo soderzhitsya 410 5 mol

v vedenii federalnyh organov vlasti nahoditsyaa zashita prav i svobod cheloveka

pomogite perevesti ya risuyu s detstva no osobenno uvleklas v poslednee vremya

kak perevesti vse vremya uhodit na uchebu

ml chtoby poluchit 2 m rastvor

opredelite molyarnuyu koncentraciyu ekvivalenta fosfornoj kisloty esli v 300 ml raf75f1d777f22c218a424269527417e69 48872

napisat programmusasha sprosil serezhu skolko tebe let serezha otvetil esli b

pomogite perevesti pozhalujstahochu proverit sebyauvseh lyudej est hobbi i raz

pomogite perevesti pozhalujsta yaprosypayus v 6 chasov utra chtoby uspet v uni

privedite tripriznaka postindustrialnogo obshestva

рекомендуемые вопросы

Helpful Links

Helpful Social