4)
var
a, b: integer;
function max(a, b: integer): integer;
begin
if a > b then max := a else max := b;
end;
begin
readln(a, b);
writeln(max(a, 2 * b) * max(2 * a - b, b));
end.
5)
const
n = 10;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do
begin
readln(a[i]);
if i mod 2 = 0 then s := s + a[i];
end;
writeln(s);
end.
6)
const
handsfree = false;
var
a: array[1..100, 1..100] of real;
product: real;
i, j, m, n: integer;
begin
{ввод матрицы}
if handsfree then begin
n := random(20) + 2;
m := random(20) + 2;
end
else begin
write('n, m =');
readln(n, m);
end;
writeln('Данные матрицы:');
for i := 1 to m do
begin
for j := 1 to n do
if handsfree then begin
a[i, j] := random(100) - 50;
write(a[i, j]:4, ' ')
end
else
read(a[i, j]);
writeln;
end;
product := 1;
for i := 1 to m do
for j := 1 to n do
if a[i, j] > 0 then
product := product * a[i, j];
writeln('product = ', product);
end.
Var
a: integer;
b, x: byte;
begin
readln(a);
x := a mod 10;
b := a div 1000 mod 10;
writeln(b, ' - ', x, ' = ', b - x);
end.
A2 = СУММ(A1:D1)/4 = (1 + 4 + 4 + 3)/4 = 3
B2 = B1 * D1 - C1 * 2 = 4 * 3 - 4 * 2 = 4
C2 = B1 * A2 - D1 - 6 = 4 * 3 - 3 - 6 = 3
D2 = C1 + C1/4 = 4 + 4/4 = 4 + 1 = 5
Итак, нужно найти диаграмму, на которой два элемента равны, еще один больше них примерно на 3, и последний примерно на столько же больше него. Это диаграмма 1.
Напишу программу на Паскале, если нужна на другом языке, можешь удалять.
program ball ;
var
a, b:string ;
c, d, z: integer ;
begin write ( 'введите фамилию, имя и баллы по двум предметам' ) ; read ('a', 'b', c, d)
z:=c+d
if z<30
then writeln ('a', 'b')