1.
Var
a,n:integer;
Begin
write('Введите число n ');
Readln(n);
while a<=n do
Begin
write(a,' ');
a:=a+1;
End;
End.
2.
Var
a,n,d:integer;
Begin
d:=2;
write('Введите число n ');
Readln(n);
while a<n do
Begin
write(d,' ');
d:=d+2;
a:=a+1;
End;
<span>End.
</span>3.
Var
a,b:integer;
Begin
write('Введите числа a и b: ');
Readln(a,b);
while a<=b do
Begin
writeln(a,'^2 = ',sqr(a),' ');
a:=a+1;
End;
<span>End.</span>
Все расчеты аналогичны тем, что даны в примере.
а) в системе 20 элементов и она допускает разбиение на 5 подсистем по 4 элемента в каждой;
Всего связей 20·19 = 380.
При разбиении на 5 подсистем по 4 элемента в каждой:
Число связей между подсистемами 5·4 = 20, число связей внутри каждой подсистемы – 4·3 = 12. Всего 20 + 5·12 = 80 связей
б) в системе 100 элементов и она допускает разбиение на 10 подсистем по 10 элементов в каждой.
Всего связей 100·199 = 19900.
При разбиении на 10 подсистем по 10 элементов в каждой:
Число связей между подсистемами 10·9 = 90, число связей внутри каждой подсистемы – 10·9 = 90. Всего 90 + 10·90 = 990 связей
Var a, b: word;
k: byte;
begin
write ('Введите двузначное число: ');
readln (a);
b := a;
k := 0;
while b <> 0 do begin
a := a mod 10;
k := k + 1;
b := b div 10
end;
if (k <> 2) then
writeln ('Вводите только двузначные числа')
end.
