СМЕХ, | Код |
var
matr : array[1..14, 1..4] of integer;
i, k : integer;
line : integer;
nechet, chet : integer;
begin
writeln('Your matrix:');
for i := 1 to 14 do
begin
for k := 1 to 4 do
begin
matr[i, k] := 4 * (i - 1) + k;
write(matr[i, k] : 4);
end;
writeln;
end;
for i := 3 to 12 do
begin
for k := 1 to 4 do
if (matr[i, k] mod 2 <> 0) then
matr[i, k] := 0;
end;
for i := 1 to 14 do
begin
for k := 1 to 4 do
if (matr[i, k] mod 2 <> 0) then
nechet := nechet + 1
else
chet := chet + 1;
end;
Writeln('Chet count = ', chet);
Writeln('Nechet count = ', nechet);
// quit, if line not in [1..14]
while (true) do
begin
writeln('Input line to output');
readln(line);
if (line < 1) or (line > 14) then
Break;
for k := 1 to 4 do
write(matr[line][k] : 3);
writeln;
end;
writeln('Bye-bye!!');
readln;
end.
//------------------------------------------------------------------
|
|
