<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
<h3>N= 10</h3><h3>7 14 21 28 35 42 49 56 63 70</h3>
Катет + катет = гипотенуза
Преобразуем выражение с помощью законов де Моргана и запишем его в виде
(Третья буква гласная) ИЛИ (Последняя буква согласная)
и проверим все варианты ответа.
1) Ложно, поскольку ложны оба высказывания: н — согласная и а — гласная.
2) Истинно, поскольку истинно первое высказывание: е — гласная.
3) Истинно, поскольку истинно второе высказывание: л — согласная.
4) Истинно, поскольку истинны оба высказывания: о — гласная и р — согласная.
Правильный ответ указан под номером 1.
Const
M = 3;
N = 3;
Var
A:array[1..M,1..N]of real;
B:array[1..N]of integer;
i,j:integer;
Begin
WriteLn('Заполни массив ',M,'x',N);
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
For j:= 1 to N do
For i:= 1 to M do
if (A[i,j]>0) then B[j]:=B[j]+1;
j:=N;
For i:= 1 to N-1 do
if (B[j]>B[i]) then j:=i;
WriteLn(j)
End.