Які команди завжди використовуються в алгоритмах з розгалуження?

А) перевірки умови
Б) руху
В) зміни костюму
Г) виведення

Question

Информатика: Які команди завжди використовуються в алгоритмах з розгалуження? А) перевірки умови Б) руху В) зміни костюму Г) виведення

AnutaBelova1524 · Accepted Answer

program raf105;

const

n = 10;

var

x: array[1..n] of integer;

i: integer;

a,b,c: boolean;

begin

a:= True;

writeln('Заполните массив из ',n,' чисел');

for i:=1 to n do

begin

readln(x[i]);

a:= (x[i] = 0) and a;

b:= ( not(c) and (x[i] > 0) ) or b;

c:= ( not(b) and (x[i] < 0) ) or c;

end;

if a

then writeln('Все числа равны нулю');

if b

then writeln('Первое ненулевое число - положительное');

if c

then writeln('Первое ненулевое число - отрицательное');

end.

PascalABC 3.4.2