Перевести с pascal на qbasic const n = 4; var a: array [1..n,1..n] of integer; i,j,answer: byte; found: boolean; writeln('введите элементы матрицы: '); for i: =1 to n do for j: =1 to n do readln(a[i,j]); writeln(''); end; writeln; for i: =1 to n do for j: =1 to n do write(a[i,j],' '); writeln; end; writeln; answer: =0; found: =false; for i: =1 to n do for j: =1 to n do if not odd(a[i,j]) then found: =true else found: =false; break end; if found = true then answer: =i end; writeln('последняя строка, содержащая только четные элементы: ',answer); end.

1)25% = 0,25 24 * 0,25 — 6 (учеников) получили "5"
2) 50% = 0,5 24 * 0,5 3D 12 (учеников) получили "3" и "4"
3) 25% = 0,25 24 * 0,25 — 6 (учеников) получили "2"

Извини, но не получается здесь начертить столбчатую диаграмму. смотри,круговая диаграмма: начерти круг, раздели его пополам: одна половина круга - это 50%, это 12 учеников, которые получили "3" и "4". Вторую половину круга тоже раздели пополам. каждая будет по 25%, т.е. в одной части напиши 6 учеников, получивших "5", ав другой части - 6 учеников, получивших "2".

1)25% = 0,25

   24 * 0,25 = 6 (учеников) получили "5"

2) 50% = 0,5

   24 * 0,5 = 12 (учеников) получили "3" и "4"

3) 25% = 0,25

   24 * 0,25 = 6 (учеников) получили "2"

Извини, но не получается здесь начертить столбчатую диаграмму.

Круговая диаграмма: начерти круг, раздели его пополам: одна половина круга - это 50%, это 12 учеников, которые получили "3" и "4".

Вторую половину круга тоже раздели пополам. каждая будет по 25%,т.е. в одной части напиши 6 учеников, получивших "5", а в другой части - 6 учеников, получивших "2".