Const n=10;
var a:array[1..n] of integer;
i,s,p:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
s:=0;
p:=1;
for i:=1 to n do
begin
if i mod 2 = 0 then s:=s+a[i];
if a[i] mod 3 = 0 then p:=p*a[i];
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
Исходный массив:
-4 -9 2 -2 4 6 -8 -5 7 -5
s = -15 p = -54
program raf105;
var a,sum,col:integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы узнать результат введите 0');
a:=1;
while a<>0 do
begin
readln(a);
if (10<=a) and (a<=99)
then if a mod 2 = 0
then
begin
sum:= sum+a;
col:= col+1
end;
end;
writeln('Количество чётных двузначных чисел: ',col);
writeln('Их сумма: ',sum);
end.
<em>Написано на языке PascalABC.NET</em>
Т.к. язык программирования не указан, сделаю на свой вкус, т.е. C++. При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
#include <stdlib.h>#include <stdio.h>#include <locale>
void main(){ setlocale(LC_ALL, "RUSSIAN"); int i, n, an; an = 0; printf("\n Введите n ->"); scanf_s("%d", &n); for (i = 1; i <= n; i++) an = an+i; printf("\n Сумма первых n натуральных чисел равна: %d", an); an = 0; for (i = 1; i <= n; i++) an = an + i*i; printf("\n Сумма квадратов первых n натуральных чисел равна: %d", an); an = 0; for (i = 1; i <= n; i++) if (i % 2 == 0)an = an + i; printf("\n Сумма всех четных чисел в диапозоне от 1 до n: %d", an); an = 0; for (i = 10; i <= 99; i++) an = an + i; printf("\n Сумма всех двухзначных чисел равна: %d \n", an); system("pause");}
15 вершин, полный граф, (т.е. есть всевозможные связи)
связей = n*(n-1)/2 = 15*14/2 = 105
Если связи убирать случайно
Связный граф - вершины должны быть соединены хоть раз. Для 15 вершин должно быть 15-1=14 связей
Несвязным граф точно будет если связей 13 и меньше
105 - 13 = 92 связи нужно убрать
Если связи убирать целенаправленно
То тогда нужно отсоеденить одну вершину. Всего вершин 15, и каждая связана с 14 остальными вершинами. Если мы уберем эти 14 связей, то 15 вершинный граф перестанет быть связным
Ответ 14