МОГУЧИЙ PASCAL ABC(ОТДАМ ВСЕ НАЖИТЫЕ БАЛЛЫ)!!!!!!!!!!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА НАРИСОВАТЬ КУБ РАСКРЫТЫЙ БЕЗ ЗО ВСЯКИХ РАСКРАСОК О
МОГУЧИЙ PASCAL ABC(ОТДАМ ВСЕ НАЖИТЫЕ БАЛЛЫ)!!!!!!!!!!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА НАРИСОВАТЬ КУБ РАСКРЫТЫЙ БЕЗ ЗО ВСЯКИХ РАСКРАСОК ОБЫЧНЫЙ! КУБ КАК НА БУМАГЕ С ФУНКЦИЯМИ LINE И ВСЁ С ИНЕТА СДИРАТЬ НЕ НАДО УЖЕ ПРОБЫВАЛ НЕ ПРОКАТИТ
Program Multy; var i, n, x, mt:integer; begin write('введите целое число X '); readln(x); write('введите степень N '); readln(n); mt:=x; for i:=1 to (n-1) do begin mt:=mt*x; end; writeln(x,' в степени ',n,' равно ',mt); end.
Function chooseClassByWindowWidth() { let el = ...; // элемент, на который надо навешивать класс, например, document.querySelector('img.resizeable') let width = window.innerWidth, height = window.innerHeight; // innerWidth, innerHeight измеряют внутренние размеры, если нужны внешние, с учетом тулбаров, строк заголовка и т.п. – нужно inner поменять на outer if (width <= 1024 && height <= 768) { el.classList.add('A'); el.classList.remove('B'); } else { el.classList.add('B'); el.classList.remove('A'); } }
Чтобы функция выполнялась при изменении размеров, нужно добавить её как обработчик события resize: window.onresize = chooseClassByWindowWidth; или window.addEventListener("resize", chooseClassByWindowWidth);
В двоичной системе счисления наименьшее пятизначное число 10000 и наибольшее пятизначное число 11111. Осталось перевести эти числа в десятичную систему счисления.
Var a,b,i,z:integer;y,x,h,k:real; begin write('введите a,b,h');read(a,b,h); k:=(b - a)/h;z:= round(k); for i:=0 to z do begin x:=a + h*i; y:= x*x *sin(x*Pi/180); write(x:6);writeln(y:21:6);<span>end;</span>