Постройте таблицу истинности для следующих логических выражений.
—
—
в v ( a & b ). -?
—
( a & b ) & ( a & b ) v c -?

10 REM создание массива А для заполнения списком из 10 чисел 20 DIM A (1,10): 30 REM начало цикла для заполнения массива 40 FOR I=1 TO 10 50 REM формирование запроса на ввод I-го числа 60 PRINT “Введите”, I, “-ое число” 70 REM ввод I-го числа 80 INPUT J 90 REM присвоение I-му элементу массива значения числа 100 A(I)=J 110 NEXT I 120 REM цикл сортировки списка чисел по возрастанию 130 FOR I =1 TO 9 140 FOR J=I+1 TO 10 150 REM условие для упорядочения списка 160 IF A(I)>A(J) THEN b=A(I):A(I)=A(J):A(J)=b 170 NEXT J, I 180 REM цикл вывода упорядоченного списка на экран 190 FOR I=1 TO 10 200 PRINT А(I) 210 NEXT I Работа основного алгоритма (130-170 шаги программы) проверена на визуал бейсике. Работает!

program z1;

var o1,o2,o3:integer;

sr:real;

begin

repeat

write ('Введите 1 оценку ');

read (o1);

if (o1<2) or (o1>5) then writeln ('Ошибка')

until (o1>1) and (o1<6);

repeat

write ('Введите 2 оценку ');

read (o2);

if (o2<2) or (o2>5) then writeln ('Ошибка')

until (o2>1) and (o2<6);

repeat

write ('Введите 3 оценку ');

read (o3);

if (o3<2) or (o3>5) then writeln ('Ошибка')

until (o3>1) and (o3<6);

sr:=(o1+o2+o3)/3;

if sr<2.5 then writeln('Петя, ты двоечник по информатике')

else

if sr>4.5 then writeln('Петя, ты отличник по информатике')

else

if (sr>=2.5) and (sr<=3.4) then writeln('Петя, ты троечник по информатике')

else writeln('Петя, ты ударник по информатике')

end.