1. 1)в. 2)б. 3)а2.ім’я_поштової_скриньки_користувача@доменне_ім’я_поштового_сервера3. 1),2)4. 3),4)5. 1),2),3),5)6. 1),3),4)
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3>
function IsPrime(self: integer): boolean; extensionmethod;
begin
Result := true;
for var i := 2 to floor(sqrt(self)) do
if self mod i = 0 then begin result := false; exit; end;
end;
begin
Println(ReadInteger.IsPrime ? 'Да' : 'Нет')
end.
<em>VAR</em>
<em> n, ans: Integer;</em>
<em>BEGIN</em>
<em> Read(n);</em>
<em />
<em> ans := n mod 10; n := n div 10;</em>
<em> ans := ans * (n mod 10); n := n div 10;</em>
<em> ans := ans * (n mod 10); n := n div 10; </em>
<em> ans := ans * (n mod 10); </em>
<em />
<em> Write(ans);</em>
<em>END.</em>
<span>Вспомогательные алгоритмы последнего уровня детализации могут состоять только из основных команд языка, то есть н</span><span>е могут содержать в себе обращений к другим вспомогательным алгоритмам.</span>
Const z = 50;var A:Array[1..z,1..z] of integer;n,i,j:integer;beginwrite('Введите размер массива ');readln(n);for i:=1 to n dobeginfor j:=1 to n dobeginA[i,j]:= random(100)-50;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i mod 2 =0 thenwrite(A[i,j]:4);end;writeln;<span>end;</span>