Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
Сколько вершин? 31
Есть ли рёбра? Да
Есть ли направление? Нет
Все вершины соединены рёбрами? Да
Пояснение:
Вершины просто посчитать. Рёбра безусловно есть, они соединяют вершины. Направления нет (неориентированный граф, нет стрелочек на рёбрах). Все вершины соединены, нет изолированных, то есть граф связный.
Пожалуй больше ничего и не скажешь. Разве что такие графы называются "деревьями", в этом случае дерево двоичное. То есть один корень, и степени вершин неориентированного в данном случае дерева не превосходят 3. Этого в задании нет, однако можно отметить для общего развития.
Алгоритм
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; s := 0;
Алгоритм
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; c := 0;
Цикл по i от 1 до n (по строкам)
Цикл по j от 1 до m (по столбцам)
Если (A(i, j) = Max) and ((i<>k) or (j<>p)) То c := c+1;
Если (A(i, j) > Max) То
k := i; p := j; c := 1;
Max: = A(i, j);
Конец Если
Конец цикла по столбцам
Конец цикла по строкам
Вывод "Элемент ", Max, " встречается ", c, " раз"
Конец.
Программа
var A: array of array of integer
var i,j,m,n,k,p,s,Max: integer
BEGIN
uses crt; clrscr;
write ('Vvedite kol-vo strok: '); readln (n);
write ('Vvedite kol-vo stolbtsov: '); readln (m);
setlength(A,n,m);
for i=1 to n do
begin
for j=1 to m do
begin
write ('Vvedite element vassiva: '); readln (A[i,j]);
end;
end;
Max := A[1,1]; k := 1; p := 1; c := 0;
for i=1 to n do
begin
for j=1 to m do
begin
if (A(i, j) = Max) and ((i<>k) or (j<>p)) then c := c+1;
if (A(i, j) > Max) then
begin
k := i; p := j; c := 1;
Max: = A(i, j);
end;
end;
end;
write ('Element ', Max, ' vstrechaetsya ', c, ' raz');
END.
#include<iostream>
using namespace std;
int main()
{
int N,max;
cin >> N;
max = N % 10;
do
{
N = N / 10;
if (N % 10 > max) max = N % 10;
}
while (N != 0);
cout << max;
do
{
std::cin.get();
}
while (true);
}