Var a: array [1..6] of integer; i,p,s, max: integer; begin max := a[i]; p:=1; s:=0; for i:= 1 to 6 do if a[i] > max then max := a[i]; //находим максимальный if a[i] mod 2 = 0 then s:= s+ a[i]//находим сумму четных else p:= p*a[i];//находим произведение нечетных writeln(max);//вывод максимального writeln(s);//вывод суммы четных writeln(p);// вывод произведения нечетных end.
Задача 7. ВОДОЛАЗКА Задача 2. после 6 применений 64 четных цифры (после каждого применения их количество увеличивается в 2 раза) Задача 1. не может быть Даша второй, т.к. это утверждение в 4 и 5 строках. Не может быть третьей Ира (предполагается в 3 и 5 строках). Значит первая Маша. А Даша и Ира - не призеры. Из 4-й строки получаем. что и Боря не призер. Из 1 и 3 строки получаем, что Вася - не призер (т.к. указано что Вася второй и Вася третий). Значит призер Таня (не первая и не третья, значит - вторая). Из 2 строки получаем, что и Гена не призер. Остается Антон - третий ответ: Маша, Таня, Антон Задача 3. Всего можно составить 60 трехзначных чисел. Числе. меньших 200, 12. Вероятность 12/60=0,2 Задача 9. 16 Задача 4. Можно (Земля-Марс-юпитер-Венера-Меркурий) Задача 6. 370 343 640 613 910 901 271 253 550
Чтобы было удобнее, располагаем перед собой алфавит:
и действуем по указанному правилу: берём букву из слова и по алфавиту смотрим, какая буква идёт третьей после нашей буквы если упёрлись в конец алфавита- продолжаем счёт с начала алфавита (движемся по кругу) чтобы это было удобнее, я запишу алфавит сразу с добавленными буквами в его конце:
такое действие выполняем для каждой буквы в слове
Итак, шифруем слова: ИНФОРМАЦИЯ => ЛРЧСУПГЩЛВ КОМПЬЮТЕР => НСПТБХЗУ ЧЕЛОВЕК => ЪЗОСЕЗН
А вообще, для человека такое преобразование не очень удобно делать, поэтому для большего объёма текста проще было бы составить программу, или таблицу в Экселе, которая бы выполняла нужные действия с текстом.
a: array [1..6] of integer;
i,p,s, max: integer;
begin
max := a[i];
p:=1;
s:=0;
for i:= 1 to 6 do
if a[i] > max then
max := a[i]; //находим максимальный
if a[i] mod 2 = 0
then s:= s+ a[i]//находим сумму четных
else p:= p*a[i];//находим произведение нечетных
writeln(max);//вывод максимального
writeln(s);//вывод суммы четных
writeln(p);// вывод произведения нечетных
end.