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

Question

Информатика

Маврикий

10 января, 21:21

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

+3

Ответы (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.