1. x=2 y=5 t=5
2. a=3 b=3
3. a=4683 b=4680
4. b=189 a=71
5. b=17 a=9
6. b=19 a=11
7. b=14 a=7
Спутники ловят сигналы из одной точки земли и посылают их в другую.
Const
MAX = 100;
var
A: array [1 .. MAX, 1 .. MAX] of integer;
i, j, N, M: byte;
min: integer;
begin
randomize;
write(' Введите N(макс. ', MAX, ') = ');
readln(N);
write(' Введите M(макс. ', MAX, ') = ');
readln(M);
writeln(' Исходная матрица: ');
for i := 1 to N do
begin
for j := 1 to M do
begin
A[i, j] := random(100) - 50;
write(A[i, j]:6);
end;
writeln;
end;
for i := 1 to N do
begin
min := A[i, 1];
if i mod 2 = 0 then
begin
for j := 1 to M do
if A[i, j] < min then
min := A[i, j];
writeln(' Минимальный элемент ', i, ' строки = ', min);
end;
end;
end.
Компьютер был создан очень давно и щас таких компьютеров очень много.А использую я его для того что б общаться,договариваться с друзьями о встрече или какой нибудь поездке.В двадцать первом веке компьютер нужен каждому человеку,за исключением пожилых бабушек и дедушек,и бывает так что и они его используют.Потому что сейчас как раньше люди не гуляют,а раньше компьютеров не было,веселились как могли.Каждый человек использует его по разному кто для работы,а кто то для учебы.Ну а мне он нужен конечно же для учебы и в будущем понадобится и для работы.
// PascalABC.NET v3.3 1633
begin
var N:=ReadInteger('Введите N: ');
var spaces:='';
if N > 0 then
for var i:=n downto 1 do
begin
writeln(spaces+'*'*i);
spaces+=' '*(i-1);
end;
end.
