РЕБЯТА С ЗАДАНИЯМИ 3 И 4! 3. Путём преобразования докажите равносильность следующих высказываний: 1) (A & B) v (B & C) и (A & B) V (A& C) V (B & C); 2) (A & B) v (A & C) и (A & B) VAvс. 4. Упростите логические формулы: 1) (A & B& C) V (A & B& C) V (A & B); 2) (A & ByA & B & CyB & Cy C) & (Cy A&CvA & B& C).
С ЦИКЛАМИ: Program test ; Var d, a, :real; n, i:integer; Begin Write ('введите a1: '); Readln(a) ; Write(' введите шаг арифм. прогресии: '); Readln(d); Write('введите номер члена арифм. прогресии:'); Readln(n); For i:=1 to n do a:=a+d; Writeln(n, ' член арифметической прогресии равен : ', a); End. БЕЗ ЦИКЛОВ: Program test ; Var d, a, :real; n, i:integer; Begin Write ('введите a1: '); Readln(a) ; Write(' введите шаг арифм. прогресии: '); Readln(d); Write('введите номер члена арифметической прогресии: '); Readln(n); Writeln(' ответ: ', a+d*(n-1)); End.
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )
for i:=1 to 20 do A[i]:=random(9); // заполняем массив
for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;
for i:=1 to 20 do write(A[i]:3); // Выводит весь массив
writeln(); // просто перевод на новую строку для красоты
writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.