Задача 12. "Друзья". В поездке пятеро друзей — АНТОН, Борис, Вадим, Дима и Гриша, знакомились с Попутчицей. Они предложили ей Отгадать их фамилии, причём каждый из них высказал ОДНО ИСТИННОe и ОДНО ЛОЖНОe утверждение: Дима сказал: "Моя фамилия — МОЛОТОВ, а фамилия Бориса – Хрущев". АНТОН сказал: "МОЛОТОВ — это моя фамилия, а фамилия Вадима – Брежнев". Борис сказал: "Фамилия Вадима - ТИХОНОВ, а моя фамилия — Молотов". Вадим сказал: "Моя фамилия — Брежнев, а фамилия Гриши — Чехов". Гриша сказал: "Да, моя фамилия Чехов, а фамилия Антона - ТИХОНОВ". Какую фамилию Носит каждый из друзей?

Объяснение:

Пошукова оптимізація сайту або ж SEO (англ. search engine optimization) — процес коригування HTML-коду, текстового наповнення (контенту), структури сайту, контроль зовнішніх чинників для відповідності вимогам алгоритму пошукових систем, з метою підняття позиції сайту в результатах пошуку в цих системах за певними запитами користувачів. Чим вище позиція сайту в результатах пошуку, тим більша ймовірність, що відвідувач перейде на нього з пошукових систем, оскільки люди зазвичай йдуть за першими посиланнями.

Паскаль.

Немного не понятно: от 1 до 10  это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку

program jjj;

var a: array [1..10] of integer; i,summa,proizv:integer;

begin

for i:=1 to 10 do begin

   Writeln('напишите элемент массива номер ',i); read(a[i]);

                        end;

For i:=1 to 10 do begin

                              if a[i] mod 2=0 then summa:=summa+a[i] else

                                                       proizv:=proizv*a[i];

                         end;

Writeln(summa,'   ',proizv); readln;

end.