Простое высказывание :
А =Краснодар - краевой центр.
А=1
Составные высказывания:
1) Сегодня будет дождь или туман.
А= дождь
В=туман
F =A+B
2) Сегодня мороз и идёт снег.
М = мороз
С = снег
F =M*C
Program chisloq;
uses crt;
var q: real;
begin
writeln ('Введите число');
readln (q);
if (q <150) and (q>100) and
((q>120) or (q <120)) then
writeln ('ВЕРНО')
else writeln('НЕВЕРНО');
end.
64 Мбайт = 64*1024 Кбайт = 64*1024*1024 байт = 64*1024*1024*8 бит =
2^6*2^10*2^10*2^3 бит = 2^29 бит
16 = 2^4
16^(4*x) = 2^29
4*x = 29 ⇒ x=29/4 = 7,25
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Select(t -> Abs(t)).Max.Println
end.
<h2>n= 13</h2><h2>24 -14 9 -6 43 -4 15 -46 40 -14 -32 45 32</h2><h2>46 </h2>
Var i, min, max: integer;
function f(n: integer):integer;
begin
f:=n*n-4*n+3;
end;
begin
min := f(1);
max := f(1);
for i:=1 to 3 do
begin
if f(i) > max then max := f(i);
if f(i) < min then min := f(i);
end;
writeln(min, ' ', max)
end.