===== PascalABC.NET =====
begin
var L := new List<string>;
loop 4 do
L.Add(ReadlnString);
var s := L.GroupBy(p -> p)
.Select(p -> (p.Key, p.Count))
.Where(p -> p[1] > 1);
if s.Count > 0 then
begin
Print('Одинаковые слова:');
s.Select(p -> p[0]).Print
end
else
Println('Одинаковые слова отсутствуют')
end.
А) Саратов,Самара,Париж,Волгоград,Воронеж и т.д.
б) Нельзя дописать Волга, тк это река и Россия, тк это Страна
Ответ Alt+tab быстрый переход в окно
Значение переменной y в команде x:=x+y не меняется, т.е y=25
x(новое) = x(старое)+y ⇒ x(старое) = x(новое)-y = 7-25 = -18
Ответ: x=-18; y=25
Ответ:ночь - ноль - соль - сель - сень - день
рота - нота - нога - нора - пора - пола - полк
бант - рант - рана - раса - роса - коса
бег - бог - бок - бак - мак - рак - гак - маг - шаг
море - горе - гора - кора - кома - кума - пума - сума - суша
миг - мир - пир - пар - бар - бас - бес - вес - век
Объяснение: