А = "К<span>апитан корабля получает специальное указание</span>"
В = "Д<span>олжен покинуть порт на своем корабле</span>"
С = "О<span>н впредь лишается допуска в этот порт</span>"
а) А → В
б) ¬А → (¬В ⋁ С)
в) С ⋁ ¬А
245(10)=128+64+32+16+4+1=2^7+2^6+2^5+2^4+2^2+2^0=11110101(2)
Ответ:6
Var a:real;BeginWrite('Сторона равностороннего треугольника: ');ReadLn(a);WriteLn('P = ',a*3);WriteLn('S = ',a*a);End.
Var
a:array[1..100] of integer;
b, c, i: integer;
begin
read(b); read(c);
for i:=b to c do begin
a[i]:=i;
if a[i] mod 2=0 then
writeln(a[i], ' '); end;
end.