program raf105;
var i,min,kolN,sumN,sariN:integer;
a:array[1..30] of integer;
begin
writeln('Элементы массива:');
min:=99;
for i:=1 to 30 do
a[i]:= random(1,60);
write(a[i],' ');
if (a[i]<min) and ((a[i] mod 4)=0)
then min:= a[i];
if ((a[i] mod 2)<>0)
then
kolN:= kolN+1;
sumN:= sumN+a[i];
end;
writeln;
if min=99
then min:=0;
sariN:= round(sumN/kolN);
writeln('Минимальное значение среди чётных элементов кратных четырём:');
writeln(min);
writeln('Среднее арифметическое среди нечётных элементов:');
writeln(sariN);
end.
Язык программирования PascalABC
1) Отрезаем 3 квадрата со стороной 131, остается прямоугольник со сторонами 131*32
2) Отрезаем 4 квадрата со стороной 32 ,(131-4*32 = 3), остается прямоугольник со сторонами 3*32
3) Отрезаем 10 квадратов со стороной 3 (32-10*3=2), остается прямоугольник со сторонами 2*3
4) Отрезаем квадрат со стороной 2 ,(3-2*1) остается прямоугольник со сторонами 1*2
5) Разрезаем на 2 квадрата со сторой 1
Итого получили: 3 квадрата 131*131; 4 квадрата - 32*32; 10 квадратов - 3*3,
1 квадрат - 2*2; 2 кадрата - 1*1
program raf105;
var i,min,kolN,sumN,sariN:integer;
a:array[1..30] of integer;
begin
writeln('Элементы массива:');
min:=99;
for i:=1 to 30 do
begin
a[i]:= random(1,60);
write(a[i],' ');
if (a[i]<min) and ((a[i] mod 4)=0)
then min:= a[i];
if ((a[i] mod 2)<>0)
then
begin
kolN:= kolN+1;
sumN:= sumN+a[i];
end;
end;
writeln;
if min=99
then min:=0;
sariN:= round(sumN/kolN);
writeln('Минимальное значение среди чётных элементов кратных четырём:');
writeln(min);
writeln('Среднее арифметическое среди нечётных элементов:');
writeln(sariN);
end.
Язык программирования PascalABC
1) Отрезаем 3 квадрата со стороной 131, остается прямоугольник со сторонами 131*32
2) Отрезаем 4 квадрата со стороной 32 ,(131-4*32 = 3), остается прямоугольник со сторонами 3*32
3) Отрезаем 10 квадратов со стороной 3 (32-10*3=2), остается прямоугольник со сторонами 2*3
4) Отрезаем квадрат со стороной 2 ,(3-2*1) остается прямоугольник со сторонами 1*2
5) Разрезаем на 2 квадрата со сторой 1
Итого получили: 3 квадрата 131*131; 4 квадрата - 32*32; 10 квадратов - 3*3,
1 квадрат - 2*2; 2 кадрата - 1*1