<span>а) НЕ(6<10) ИЛИ НЕ(6)
НЕ(1)ИЛИ НЕ(1)
0 ИЛИ 0
0(ложно)
б) НЕ(74</span><span><10) ИЛИ НЕ(74)
НЕ(0)ИЛИ НЕ(1)
0 ИЛИ 1
1 (истинно)
в)НЕ(141</span><span><10) ИЛИ НЕ(141)
НЕ(0)ИЛИ НЕ(0)
1 ИЛИ 1
1(истинно)
г) НЕ(9</span><span><10) ИЛИ НЕ(9)
НЕ(1)ИЛИ НЕ(0)
0 ИЛИ 1
1(истинно)
ОТВЕТ:1</span>
Var A : Byte;
Begin
Readln(A);
Write('Мне ',A,' ');
Case A mod 10 of
0,5..9 : Writeln('лет');
2..4 : Writeln('года');
1 : Writeln('год');
end;
end.
1) a = 16; n = 10
идет простая математика, mod - деление с остатком
Ответ:
program kod;
var
a: array [1..10] of Integer;
i, p: Integer;
begin
for i:=Low(a) to High(a) do a[i]:=-40+Random(91);
p:=1;
for i:=Low(a) to High(a) do if (a[i]>0) and (a[i] mod 7=0) then p:=p*a[i];
end.
Объяснение:
У меня второй вариант решения. Размерность массива: [1..10] можно любую делать