===== 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.
Задача на логику, простая же, зачем тут выкладывать?
Ложно высказывание для имени Вера, потому что оно не подходит под обе части высказывания.
1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
Чтобы сравнить, элементарно переведем в десятичную систему счисления:
65₈=6*8^1+5*8^0=48+5=53₁₀
53₇=5*7^1+3*7^0=35+3=38₁₀
Значит, 53₇<65₈