Var n,i:integer;
begin
read (n);
if (n>=1)then begin
for i:=0 to n do
begin
if (i*2+i*i+1)<=n then writeln (i*2+i*i+1);
end;
end else writeln ('Нет таких чисел');
end.
1)Мой брат не сильный,но и не хилый. 2)Я рисую,но мня это не очень завлекает.
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
Begin
if A>C then A:=A/3
else C:=C/3;
if B<C then B:=B*3
else C:=C*3
End
else
Begin
if B>C then B:=B/3
else C:=C/3;
if A<C then A:=A*3
else C:=C*3
End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
begin
var (m, n) := ReadInteger2('Число строк и столбцов:');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
Writeln;
var me := m div 2;
if me > 0 then
begin
var v := ArrGen(m - me, i -> 2 * i);
a := a.MatrSlice(v, ArrGen(n, i -> i));
SetLength(a, m, n);
for var i := m - me to m - 1 do
for var j := 0 to n - 1 do
a[i, j] := 0;
a.Println(4);
end;
end.
Пример на рисунке.