<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function СуммаКвадратовЦифр(Число: integer): integer;
begin
Result := 0;
while Число > 0 do
begin
Result += Sqr(Число mod 10);
Число := Число div 10
end
end;
function ЧислоПервоклассное(Число: integer): boolean;
begin
Число := Abs(Число); // защита от злобных буратинок
var L:=new SortedSet<integer>;
L.Add(Число);
repeat
case Число of
0, 2, 3:
begin
Result := False;
Exit
end;
1:
begin
Result := True;
Exit
end;
else
begin
Число := СуммаКвадратовЦифр(Число);
if L.Contains(Число) then
begin
Result:=False;
Exit
end
else L.Add(Число)
end
end
until False // бесконечный цикл
end;
begin
var (НижняяГраница, ВерхняяГраница) := ReadInteger2;
var Количество := 0;
for var ОчередноеЧисло := НижняяГраница to ВерхняяГраница do
if ЧислоПервоклассное(ОчередноеЧисло) then Inc(Количество);
Количество.Println
end.
<h2>1 100</h2><h2>20 </h2>
Var n,x,i:integer;
a:array of integer;
begin
readln(n,x);
SetLength(a,n);
for i:=0 to n-1 do read(a[i]);
readln;
for i:=0 to n-1 do
if a[i] mod x=0 then write(a[i],' ');
writeln;
end.
Пример:
5 2
9 7 4 1 4
4 4
Ответ:
-узлы связи пунктов управления
-опорная сеть связи (вспомогательные УС)
-линии прямой связи
-линии связи привязки
-сеть ФПС
-органы тех. обеспечения связи и автоматизации управления
-резерв сил и средств связи
-система (пункты) управления связью.
1.
program XandY
var x, y: real;
begin
readln (x, y);
if (x > y) then
begin
y := (a + b) div 2
x := 2*x*y;
writeln ('x = ', x, ', y = ', y)
end.
2.
program AandB
var a, b;
begin
readln (a, b);
if ((a + b) < 65) then
if (a > b) then a := a*b else b := a*b
else if (a > b) then a := 2*(a + b) else b := 2*(a + b)
end.
Если в синтаксисе, то в строке <span> write (vvedite matricy A[i,j]: ') ;</span> после первой открывающей скобки пропущен апостроф.