Program z;
Uses crt;
Var a,n,i,sum, pro:integer;
Begin
Sum:=0;
Pro:=1;
Writeln ('введите число a'); read (a);
Writeln('введите число n(>a)'); read (n);
For i:= a to n do
Begin
If odd(i) then
Begin
Sum:= sum+i;
Pro:= pro*i;
End;
End;
Writeln('sum=', sum);
Writeln('pro=', pro);
End.
PROGRAM A23;
const
max = 42;
var
с:array[1..max]of real;
x:integer;
i:byte;
BEGIN
writeln('Заполнить линейный массив по формуле c[i]=16*x-i/9-7');
write('Введите x='); readln(x);
writeln(' ');
writeln('Массив' );
for i:=1 to max do begin
с[i]:=16*x - i/9 -7;
write(с[i], ' ');
end;
END.
Есть специальный калькулятор на компьютере либо в интернете
Мы имеем дело с импликацией. (Г-гласные, С - согласные)
(Г+Г)->С = ¬(Г+Г)+С = ¬Г*¬Г+С
Для представленных вариантов решений подходит только второй вариант.
Ответ: 2