А = "К<span>апитан корабля получает специальное указание</span>"
В = "Д<span>олжен покинуть порт на своем корабле</span>"
С = "О<span>н впредь лишается допуска в этот порт</span>"
а) А → В
б) ¬А → (¬В ⋁ С)
в) С ⋁ ¬А
1)var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2=0 then writeln('Число чётное')
else writeln('Число нечётное');
end.
2)var a,b:integer;
begin
writeln('Введите число');
readln(a);
b:= a div 100;
if b>9 then writeln('Ошибка') else begin
writeln('Первая цифра это');
writeln (b);
if b mod 3=0 then writeln('Первая цифра числа делится на 3')
else writeln('Первая цифра числа не делится на 3');end;
end.
//PascalABC.Net 3.2
begin
var a:=arrrandom (10, 0, 100);
println ('Случайные числа:', a);
print ('Сумма:', a.sum, ', Ср. арифм:', a.sum/length(a));
end.