какой вид колпочка? Допустим есть механические и т.д. А это какой какой вид колпочка? Допустим есть механические и т.д. А это какой какой вид колпочка? Допустим есть механические и т.д. А это какой? ">
1) var a, b: real; begin readln(a, b); if (a > b) then writeln(a) else if (a < b) then writeln(b) else writeln('a = b'); end.
2) var a, b, c: integer; begin readln(a); b := a mod 100 div 10; c := a mod 10; a := a div 100; write('a) '); if (a > c) then writeln(a) else if (a < c) then writeln(c) else writeln('='); write('b) '); if (a > b) then writeln(a) else if (a < b) then writeln(b) else writeln('='); write('c) '); if (c > b) then writeln(c) else if (c < b) then writeln(b) else writeln('='); end.
var a: array[1..m, 1..n] of integer; i, j, s: integer;
begin for i := 1 to m do begin for j := 1 to n do begin a[i, j] := random(21) - 10; if (i mod 2) <> 0 then s := s + a[i, j]; write(a[i, j]:4); end; writeln; end; write('Сумма элементов на нечетных строках = ', s); end.
var a: array[1..m, 1..n] of integer; i, j, s: integer;
begin for i := 1 to m do begin for j := 1 to n do begin a[i, j] := random(21) - 10; if (i mod 2) <> 0 then s := s + a[i, j]; write(a[i, j]:4); end; writeln; end; writeln('Элементы на нечетных столбцах:'); for i := 1 to m do begin for j := 1 to n do begin if (j mod 2) <> 0 then write('a[', i, ',', j, '] = ', a[i, j], ' '); end; writeln; end; end.
var a, b: real;
begin
readln(a, b);
if (a > b) then writeln(a)
else
if (a < b) then writeln(b)
else
writeln('a = b');
end.
2)
var a, b, c: integer;
begin
readln(a);
b := a mod 100 div 10;
c := a mod 10;
a := a div 100;
write('a) ');
if (a > c) then writeln(a)
else
if (a < c) then writeln(c)
else
writeln('=');
write('b) ');
if (a > b) then writeln(a)
else
if (a < b) then writeln(b)
else
writeln('=');
write('c) ');
if (c > b) then writeln(c)
else
if (c < b) then writeln(b)
else
writeln('=');
end.
3 даже представить не могу, извините:)