4 нуля находятся в твоём десятичном числе 172,25
С - 4
Е - 18
Т - 1
Ь - 22
Получилось слово ГРАФ
Граф - соединение вершин ребрами
<span>
Прежде
чем начать рисовать взаимопересекающиеся
множества общих
друзей,
я заглянул в <em>Словарь
иностранных слов, вошедших в состав
русского языка.- Чудинов А.Н., 1910., и нашел
</em><em>толкование
слова «</em>МИНИМАЛЬНЫЙ»
- (от лат.
minimi
— малейший). Наименьшая из рассматриваемых
величин.
Исходя
из этого определения и логики, у трёх
этих пользователей обязательно найдётся
хотя бы 1 (один) общий друг. Это и есть
ответ на поставленный вопрос: минимальное
количество пользователей соцсети,
которые дружат и с Павлом, и с Виталием,
и с Андреем — один.</span>
Var a,b:integer;
begin
writeln('введите число');
readln(a);
for b:=100 to 999 do
begin
if b<a then writeln(b);
end;
<span>end.</span>
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
SeqGen(ReadInteger('Кол-во='),2,x->3*x-1).Println
end.
<u><em>Тестовое решение:</em></u>
Кол-во= 10
2 5 14 41 122 365 1094 3281 9842 29525
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(20,-10000,10000); a.Println;
Writeln('Кол-во пар: ',a.Pairwise.
Where(x->((x.Item1+x.Item2) mod 3=0) and
((x.Item1+x.Item2) mod 9<>0)).Println.Count)
end.
<u><em>Тестовое решение:</em></u>
-1932 -9879 3600 -6873 6098 -308 -3663 3180 257 4339 -778 -1245 -9361 -7036 -2972 5592 4844 87 -980 -4458
(-1932,-9879) (-9879,3600) (3600,-6873) (6098,-308) (-3663,3180) (257,4339) (4339,-778)
Кол-во пар: 7