<span>
Прежде
чем начать рисовать взаимопересекающиеся
множества общих
друзей,
я заглянул в <em>Словарь
иностранных слов, вошедших в состав
русского языка.- Чудинов А.Н., 1910., и нашел
</em><em>толкование
слова «</em>МИНИМАЛЬНЫЙ»
- (от лат.
minimi
— малейший). Наименьшая из рассматриваемых
величин.
Исходя
из этого определения и логики, у трёх
этих пользователей обязательно найдётся
хотя бы 1 (один) общий друг. Это и есть
ответ на поставленный вопрос: минимальное
количество пользователей соцсети,
которые дружат и с Павлом, и с Виталием,
и с Андреем — один.</span>
//PascalABC.Net 3.2
begin
var x1:=readreal ('x1 ='); var y1:=readreal ('y1 =');
var x2:=readreal ('x2 ='); var y2:=readreal ('y2 =');
if (sqr(x1)+sqr(y1))=(sqr(x2)+sqr(y2)) then write ('Равноудалены') else
if (sqr(x1)+sqr(y1))<(sqr(x2)+sqr(y2)) then write ('Первая') else write ('Вторая');
end.
begin
var n1 := ReadlnInteger();
var s := n1.ToString;
var n2 := s[::-1].ToInteger;
Print(n2)
end.
Объяснение:
На первом месте, ожидаемо, находится китайский язык. Его распространенность во всём мире настолько велика, что ближайший к нему "конкурент" отстаёт примерно в 2,5 раза. На начало 2018 года в 38 странах насчитывалось около 1,3 миллиардов носителей китайского языка.
Ответ:
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.
Объяснение: