Как найти самую легкую и тяжелую монеты из 100 монет разного веса за 150 взвешиваний

300

500

Посмотреть ответы 2

Ответы на вопрос:

emuratov606Erali

Информатика

4,5(78 оценок)

A= inputbox("") max = -9999999 if a > max then max = a ‘сравнение числа с максимальным end if msgbox max a = inputbox("") min = 9999999 if a< min then min = a end if msgbox min

Hohlond

Информатика

4,4(65 оценок)

Program mediana; uses crt; var a,b,c: integer; m: real; begin clrscr; write('input 1 side: '); readln(a); write('input 2 side: '); readln(b); write('input 3 side: '); readln(c); m: =1/2*sqrt(2*sqr(a)+2*sqr(b)-sqr(c)); writeln('mediana= ',m: 2: 2); write('press any '); repeat until keypressed; end.