Дан прямоугольник, длины сторон которого a и b являются натуральными числами.определить, на сколько квадратов максимальной площади можно разделить данный прямоугольник,укажите их размеры.составьте программу на паскале абс

163

331

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

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

Аянезнаю11

Информатика

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

Var a,b,c,d,nod,k: integer; begin write('a = '); readln(a); write('b = '); readln(b); c: =a; d: =b; while (c> 0)and(d> 0) do if c> d then c: =c mod d else d: =d mod c; nod: =c+d; k: =(a div nod)*(b div nod); writeln(k,' квадратов размером ',nod,'x',nod); end. пример: a = 6 b = 15 10 квадратов размером 3x3

Фейз

Информатика

4,7(51 оценок)

//pascal //1) var a: array[1..5, 1..8] of integer; i, j: byte; sumr, sumc: integer; begin randomize; writeln('исходный массив': 28); for i : = 1 to 5 do begin for j : = 1 to 8 do begin a[i, j] : = random(61)-30; write(a[i,j]: 5); if i = 3 then sumr : = sumr + a[i, j]; if j = 5 then sumc : = sumc + a[i, j]; end; writeln; end; writeln('сумма элементов 5 столбца = ', sumc); writeln('сумма элементов 3 строки = ', sumr); end. //2) var a: array[1..5, 1..8] of integer; i, j: byte; suma, sumb, countv, countg: integer; begin randomize; writeln('исходный массив': 28); for i : = 1 to 5 do begin for j : = 1 to 8 do begin a[i, j] : = random(300)-150; write(a[i,j]: 5); if ((i = 5) and (a[i, j] < 0)) then suma : = suma + a[i, j]; if ((j = 4) and (a[i, j] < 100)) then sumb : = sumb + a[i, j]; if ((i = 4) and (a[i, j] < 5)) then countv : = countv + 1; if ((j = 2) and (a[i, j] > 15)) then countg : = countg + 1; end; writeln; end; writeln('сумма отрицательных 5 строки = ', suma); writeln('сумма меньших 100 4-ого столбца = ', sumb); writeln('количество меньших 5 4-ой строки = ', countv); writeln('количество ненулевых, больших 15 2-ого столбца = ', countg); end.

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

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

Задай свой вопрос

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

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

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

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

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

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

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