1) сколько вершин имеет граф G , (в ответе указать одного число). 2)сколько рёбер имеет граф G ,( в ответе указать одно число.) 3)Перечислите через запятую все вершины графа G смежные с вершиной L. 4)какие ребра графа Смежны с ребром EH ? (В ответе рёбра перечислите через запятую .) 5) сколько рёбер графа G инцедентны вершине Q ?( в ответе укажите одно число .)
Компьютер быстро вошел в нашу жизнь. Еще несколько лет назад было редкостью увидеть какой-нибудь персональный компьютер – они были, но были очень дорогие, и даже не каждая фирма могла иметь у себя в офисе компьютер. А теперь? Теперь в каждом третьем доме есть компьютер, который уже глубоко вошел в жизнь человека. Современные вычислительные машины представляют одно из самых значительных достижений человеческой мысли, влияние которого на развитие научно-технического прогресса трудно переоценить. Для многих людей сейчас компьютер уже не роскошь, а необходимый предмет домашней или рабочей обстановки.
1. Короткое решение для числа произвольной длины (на символьной строке)
var s:string; c:char; begin Write('Введите натуральное число: '); Readln(s); Write('введите искомую цифру: '); Readln(c); if Pos(c,s)>0 then Writeln('Такая цифра в числе есть') else Writeln('Такой цифры в числе нет') end.
Тестовое решение Введите натуральное число: 43543232 введите искомую цифру: 4 Такая цифра в числе есть
2. Более традиционное решение с целочисленными переменными
var s,c:integer; brk:boolean; begin Write('Введите натуральное число: '); Read(s); Write('введите искомую цифру: '); Read(c); brk:=false; repeat if s mod 10=c then brk:=True; s:=s div 10 until brk or (s=0); if brk then Writeln('Такая цифра в числе есть') else Writeln('Такой цифры в числе нет') end.
Тестовое решение Введите натуральное число: 43543232 введите искомую цифру: 6 Такой цифры в числе нет
var
s:string;
c:char;
begin
Write('Введите натуральное число: ');
Readln(s);
Write('введите искомую цифру: ');
Readln(c);
if Pos(c,s)>0 then
Writeln('Такая цифра в числе есть')
else
Writeln('Такой цифры в числе нет')
end.
Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 4
Такая цифра в числе есть
2. Более традиционное решение с целочисленными переменными
var
s,c:integer;
brk:boolean;
begin
Write('Введите натуральное число: ');
Read(s);
Write('введите искомую цифру: ');
Read(c);
brk:=false;
repeat
if s mod 10=c then brk:=True;
s:=s div 10
until brk or (s=0);
if brk then
Writeln('Такая цифра в числе есть')
else
Writeln('Такой цифры в числе нет')
end.
Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 6
Такой цифры в числе нет