<span>схема отношения
векторное изображение
схема алгоритмов
функциональная схема
что то мб подойдет</span>
1) <span>¬((x >3)→(x >4)) = ¬(¬(x>3)∨(x>4)) = ¬(x≤3 ∨ x>4) = (x>3) ∧ (x≤4)
Истинно для x ∈ (3;4]
<u>Ответ 4) 4</u>
2) </span><span>¬((x >56)→(x>198)) ∧(x<369) = ¬((x≤56)∨(x>198))∧(x<369) =
(x>56)∧(x<=198)∧(x<369) = </span><span>(x>56)∧(x<=198)
</span><span>Истинно для x ∈ (56;198]
<u>Ответ 1) 100</u>
</span>
В отличие от цикла while, условие вычисляется после
очередной итерации цикла, и если оно истинно, то происходит выход из цикла.
Таким образом, операторы, образующие тело цикла оператора
repeat, выполняются по крайней мере один раз.
Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется). Как только это условие выполнится, происходит выход из цикла.
1)Цикл выполнится 1 раз:
i:=i-1=-1
s=-1/1=-1
-1<1 условие выполняется, цикл прерывается.
2)цикл выполнится 3 раза:
1. i:=i+1=1; 1>2 условие не выполняется, цикл продолжается.
2. i:=i+1=2; 2>2 условие не выполняется, цикл продолжается.
3. i:=i+1=3 3>2 условие выполняется, цикл прерывается.
1) 50*75=3750 символов на странице
3750*8бит=30000бит весит 1 страница
45*8*1024=368640 бит было напечатано
368640/30000≈12 страниц
Var
i:integer;
c:array [1..15] of integer;
a:array [1..15] of integer;
begin
for i:=1 to 15 do begin
c[i]:=Random (100);
end;
for i:=1 to 15 do begin
if (c[i] mod 2 = 0) then
a[i]:= c[i] div 2
else
a [i]:= c [i] *2;
end;
write ('Массив С: ');
for i:=1 to 15 do begin
write (c [i]);
write (' ');
end;
writeln (' ');
write ('Массив A: ');
for i:=1 to 15 do begin
write (a[i]);
write (' ');
end;
end.
