1)Ввод данных (допустим а, в, с (строго в этом порядке))
2)Сравнение а>A (Если "правда" тогда "2а" если нет "2б")
2а)Сравнение a<B (Если "правда" тогда "3" если нет "2б")
2б)Переход к пункту 2 (При этом "a" меняется на "b" и т.д.)
3) вывод данных (если есть еще числа тогда "2б", если нет тогда окончание блок схемы)
<span><span>В графическом редакторе эллипс и прямоугольник тоже связаны между
собой. Иногда, прежде чем нарисовать круг или овал, рисуют соответствующий
прямоугольник вспомогательным цветом, а затем вписывают в него окружность или
эллипс. </span></span>
<span>Дана последовательность чисел А длины N. Требуется вывести в обратном порядке.
Первая строка входного файла содержит целое число N (1 <= N <= 1000000) - длину
последовательности. Вторая строка входного файла содержит N целых чисел - элементы
последовательности A. Все элементы последовательности не превосходят 100000 по
абсолютному значению.
В единственной строке выходного файла выведите элементы последовательности A в
обратном порядке. Для наглядности обратите внимание на примеры.
a in 3 a out 321
123
4 a out
1231 1321</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>
1) program z1;
var k,i:integer;
begin
i:=4;
k:=0;
while i<=20 do
begin
if i mod 2=0 then
begin
writeln(i);
k:=k+i;
end;
i:=i+1;
end;
writeln('сумма ',K)
end.
2) program z2;
var i,k:integer;
begin
k:=1;
i:=3;
repeat
if i mod 2 <> 0 then
begin
writeln(k,')',i);
k:=k+1;
end;
i:=i+1;
until k>20;
end.
