Есть ответ 👍

1) дана длина ребра куба. найти объем куба. длину ребра куба ввести с клавиатуры или задать с генератора случайных чисел. вывести на экран изображение куба и результаты вычислений. 2) дано целое число x. определить кратно ли оно 2, 3 и целому числу p.

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

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


//pascalabc.net 3.2 сборка 1318 //1 uses   graphabc;   var   a,h,x,y: integer;   c: char; begin writeln('read or random? n/r'); repeat readln(c); until (c='n') or (c='r'); if c='r' then   begin     a: =random(200);     writeln('длина ребра=',a,', объём=',power(a,3));   end else   begin     readln(a);     writeln('объём=',power(a,3));   end; x: =windowwidth div 2; y: =round(windowheight*1/3); line(x,y,x,y+a); line(x+a,y,x+a,y+a); line(x,y+a,x+a,y+a); line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2); line(x,y,x+a,y); line(x+a div 2,y+a div 2,x+a div 2,y-a div 2); line(x,y,x+a div 2, y-a div 2); line(x,y+a,x+a div 2, y+a div 2); line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2); line(x+a div 2+a, y-a div 2,x+a,y); line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a); line(x+a div 2+a, y-a div 2+a,x+a,y+a); end. пример ввода: n 16 пример вывода: объём=4096 //2 var   x,p: integer; beginwrite('x: '); readln(x); write('p: '); readln(p); if not(odd(x)) then writeln('кратно 2'); if x mod 3=0 then writeln('кратно 3'); if x mod p=0 then writeln('кратно ',p); end. пример ввода: 18 6 пример вывода: кратно 2 кратно 3 кратно 6
айка397
4,5(71 оценок)

Использовали пальцы или камушки для счёта, угли для рисования.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS