Приведите пример алгоритма, содержащего ветвление.

Question

Информатика

Моша

4 апреля, 15:46

Приведите пример алгоритма, содержащего ветвление.

+2

Ответы (2)

Знаете ответ?

Ангелиныч · Answer 1

var

a: real;

begin

write ('Введите число: ') ; readln (a) ;

if a>0 then writeln ('Число больше 0!')

else begin

if a=0 then writeln ('Число равно 0!') ;

if a<0 then writeln ('Число меньше 0!') ;

end;

end.

Пета · Answer 2

Program Primer;

Uses Crt;

var n:integer;

begin

write ('Введите цело число: ') ;

readln (n) ;

if (n mod 2) = 0 then writeln ('Число чётное')

else writeln (' Число нечётное ') ;

readkey;

end.