PYTHON за все 4 задачи С клавиатуры вводится 5 целых чисел - веса собак.
Сколько весит самая тяжелая собака из предложенных?
Формат входных данных
С клавиатуры вводится 5 целых чисел.
0 < a, b, c, d, e < 10000
Формат выходных данных
ответ - число.
2)
В первой строке вводится целое число - контрольный вес.
В следующей строке вводится 4 числа - веса собак.
Если собак, которые тяжелее (строго больше), чем контрольный вес, больше, чем тех, что не тяжелее (меньше или равен контрольному), то напечатайте на экран "Группа тяжеловесов больше".
Если количество собак, которые легче, чем контрольный вес, преобладает среди всех собак, то напечатайте: "Группа минипесиков больше".
Если группы одинаковые по количеству, то напечатайте "Группы равны".
Формат входных данных
В первой строке вводится одно целое число: 0 < x < 10000
В следующей строке вводится 4 целых числа: 0 < a, b, c, d < 10000
Формат выходных данных
Фраза - ответ.
3)
С клавиатуры вводится 3 целых трехзначных числа.
Посчитайте количество чисел палиндромов среди этих трёх.
Палиндром - симметричное число (Например, 323, 717, 464).
Формат входных данных
С клавиатуры вводится 3 целых числа.
99 < x, y, z < 1000
Формат выходных данных
Количество чисел палиндромов.
4)
С клавиатуры вводится 4 целых числа - номера пёсиков-участников.
Все пудели имеют в номере на позиции десятков цифру 7 или 8.
Найдите минималый номер, принадлежащий пуделю. Если среди собак нет ни одного пуделя, то напечатайте фразу "Пудели не явились".
Формат выходных данных
С клавиатуры вводится 4 целых числа.
9 < a, b, c, d < 10000000
По закону дистрибутивности раскроем скобки
(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB
2) F =A&(¬AvB)
По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B
3. (AvB)&(¬BvA)&(¬CvB)
По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B
4) F =(1v(AvB))v((AC)&1)
Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
ответ 1
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.