Напишите ,,программы. нужно. 1. дана последовательность чисел.найти числа кратные 2. 2. дана последовательность чисел.вывести первые 2 элемента,которые должны быть чётные.
Сначала немного теории. Тут у нас импликация(если..то...), комбинированная с конъюнкцией(и). Таблица истинности импликации(стрелочки): 0 0 1 0 1 1 1 0 0 1 1 1 Общее правило: если a<=b, тогда правда Таблица истинности конъюнкции(/\): 0 0 0 0 1 0 1 0 0 1 1 1 Общее правило: если есть одна ложь-всё ложь. Про НЕ и гуманитарий поймёт. Про данный пример: Нам нужен вариант, где оба выражения являются правдой, т.к. между ними стоит И Подробно рассмотрим первый вариант: Ирина Первая буква гласная-правда Вторая буква гласная-ложь Значит, результат импликации-ложь, в чём можно убедиться взглянув на таблицу истинности, но, так как НЕ так же присутствует в данном условии, это выражение возвращает правду. Последняя буква гласная-правда Так как оба выражения при конъюнкции правда, всё выражение является правдой и удовлетворяет условию.
begin randomize; writeln('Массив: '); for i:=1 to 20 do A[i]:=random(21)-10; for i:=1 to 20 do write(A[i]:5); writeln; writeln('Каждый пятый эелемент массива: '); for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5); end.
2. var x,i: integer; A: array [1..20] of integer;
begin randomize; writeln('Массив: '); for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5); writeln; writeln('Натуральные числа в диапазоне [5..10]: '); for i:=5 to 10 do write(A[i]:5); writeln; x:=1; writeln('Их произведение: '); for i:=5 to 10 do x:=A[i]*x; write(x:5); end.
// Внимание! Если программа не работает, обновите версию!
begin
ArrRandom(ReadInteger('n='),-99,99).Println.Where(x->x.IsEven).
Println.Take(2).Println;
end.
Пример
n= 15
45 38 43 77 -41 -49 36 98 -29 93 9 34 9 -74 53
38 36 98 34 -74
38 36