Геймер вася морталёв не любит физкультуру.недавно вася заявил, что за одну "минуту"пробегает целый "километр".при этом вася считает, что 1 км=1024 м, 1 м=64 см, 1 мин=128 с.одноклассники считают, что вася доигрался.учитель физкультура считает, что васе необходимо заняться своим здоровьем, чтобы уложиться в норматив.а вася считает, что способен побить олимпийский рекор на стометровке, если будет бежать с той же скоростью, что и "километровую", по мнению васи, дистанцию.только родители васи уже ничего не считают, а просто хотят, чтобы вася хотя бы на минутку отвлёкся от компьютера.за сколь реальных секунд вася пробегает реальные 100 м?
Ответы
Microsoft qbasic: dim n as double, p as double, k as integer cls k = 0 p = 1 do input "vvedite chislo ili 0 dlya kontsa vvoda: ", n if n < > 0 then p = p * n k = k + 1 end if loop until n = 0 p = exp(log(p) / k) print "srednee geometricheskoe = "; p end тестовое решение: vvedite chislo ili 0 dlya kontsa vvoda: 3.2 vvedite chislo ili 0 dlya kontsa vvoda: 11.7 vvedite chislo ili 0 dlya kontsa vvoda: 8.4 vvedite chislo ili 0 dlya kontsa vvoda: 0 srednee geometricheskoe = 6.800461329716477
Program chisla; uses crt; var a,b : integer; begin write('введите два числа: '); read(a,b); if (a> =0) and (a< =999) and (b> =0) and (b< =999) then begin if (a> =100) and (a< =999) then writeln(a); if (b> =100) and (b< =999) then writeln(b); if (a> =10) and (a< =99) then writeln(' ',a); if (b> =10) and (b< =99) then writeln(' ',b); if (a> =0) and (a< =9) then writeln(' ',' ',a); if (b> =0) and (b< =9) then writeln(' ',' ',b); end else writeln('нужно ввести числа от 0 до 999'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
за 128 секунд вася пробегает 1024м.и это на самом деле 65536см
тогда за одну секунду он пробегает
65536/128=512 см
100 метров=10000см
10000/512=19,5(раз по 512 см в стометровке.)
тогда в реальности вася пробегает 100 метров за 19,5 секунд
дай мне лучшее решение)