Извини конечно но это с паскалем можно решить только. вот если что
4)
var a, s: integer;
begina:=1;
while a<>0 do begin
read(a);
if (a mod 3 = 0)and(a<>0) then s:=s+1;
end;
writeln(s);
end.
Переформулируем задачу на теорию графов:
Если все вершины графа разделить на два множества, то найдется ребро, соединяющее вершину одного множества с вершиной другого. Доказать, что граф связный.
Докажем от противного. Пусть граф несвязный, тогда у него есть как минимум две компоненты связности. Тогда возьмем такое разбиение графа на группы: в первой группе будут только вершины первой компоненты связности, а в другой группе будут все остальные вершины. В таком случае, по условию задачи существует ребро из вершины первой группы в вершину второй, но это невозможно, так как вершины принадлежат к разным компонентам связности, а по определению между двумя разными компонентами связности нет ребер. Противоречие, следовательно, граф связный. Что и требовалось доказать.
Ответ:
program tt;
uses wincrt;
var
chislo,a,b,c:integer;
begin
ClrScr;
writeln('Введите число:');
readln(chislo);
a:=chislo div 100;
b:=(chislo mod 100) div 10;
c:=chislo mod 10;
if (a=b) or (a=c) or(b=c) then
writeln('Есть!')
else
writeln('Нет!');
readln;
end.
Объяснение:
Вода,волк,волга,ворона.волна
весна,ведро,ветер,ветка,век
вагон,ваза,вата,ванна,ваня
Палиндромом называется число, которое слева направо и справа налево
читается одинаково. (Например, 101)
Ответ: 5