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

alisherpitbul alisherpitbul    3   20.05.2019 23:40    1

Ответы
Dorefi Dorefi  14.06.2020 14:54

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.

ПОКАЗАТЬ ОТВЕТЫ
PesBarboss PesBarboss  14.06.2020 14:54

Program Primer;

Uses Crt;

var n:integer;

begin

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

      readln( n);

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

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

   readkey; 

 

end. 

 

 

 

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика