Предмет: Информатика, автор: grisha7278

Напишите пример разветвляющего алгоритма.

Ответы

Автор ответа: ewhiz
2

if (x>2) Then

x:=x+2

Else

x-2

Автор ответа: MrFasty5
1

var a,b:integer;

begin

writeln ('Введите два числа:');

read (a,b);

if a > b then begin

writeln ('Максимальное число: ',a);

end

else begin

writeln ('Максимальное число: ',b);

end;

end.

Интересные вопросы
Предмет: Математика, автор: диля134