Приведите пример алгоритма, содержащего ветвление.
Приведите пример алгоритма, содержащего ветвление.
Гость
Ответ(ы) на вопрос:
Гость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.
ГостьProgram Primer; Uses Crt; var n:integer; begin write('Введите цело число: '); readln( n); if (n mod 2)=0 then writeln('Число чётное') else writeln(' Число нечётное '); readkey; end.
Не нашли ответ?
Похожие вопросы