1)
Var
A,B:integer;
Begin
ReadLn(A,B);
if (A>0)and(B>0) then WriteLn(A*B)
else WriteLn(A*A+B*B);
End.
2)
Const
N=30;
Var
A:array[1..N] of integer;
Begin
For var i:= 1 to N do
Begin
A[i]:=random(100)-50;
Write(A[i]:3,' ');
End;
WriteLn;
For var i:= 1 to N do
Begin
if i mod 2 = 0 then A[i]:=0
else if i mod 5 = 0 then A[i]:=A[i]*2;
Write(A[i]:3,' ');
End;
End.
Для 144 Гц нужен DVI-D DualLink - по сути два DVI в одном.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.Select(t -> LowCase(t) in ['а', 'б'] ? 2 * t : t)
.JoinIntoString('').Println
end.
<h2>А роза упала на лапу Азора</h2><h2>АА розаа упаалаа наа лаапу ААзораа</h2>
1 источник будильник, приемник мальчик,
2источник регулировщик приемники машины и пешеходы