Алгоритм с ветвлением - это алгоритм, в котором...
1.присутствие всех возможных операций в одном алгоритме 2.одни и те же операции выполняются многократно. 3.операции выполняются друг за другом. 4.выполнение операций зависит от условия.
var a, b: integer; begin writeln('Введите a, b: '); readln(a, b); if(b mod a = 0) then writeln('Является делителем') else writeln('Не является делителем'); end.
2)
var x, y, tmp: real; begin repeat writeln('Введите x, y: '); readln(x, y); until(x <> y); if(x > y) then begin tmp := y; y := (x + y) / 2; x := 2*(x * tmp); writeln('Большее - X = ', x, ' Меньшее - Y = ', y); end else begin tmp := x; x := (x + y) / 2; y := 2*(tmp * y); writeln('Большее - Y = ', y, ' Меньшее - X = ', x); end; end.
1)
var
a, b: integer;
begin
writeln('Введите a, b: '); readln(a, b);
if(b mod a = 0) then writeln('Является делителем')
else writeln('Не является делителем');
end.
2)
var
x, y, tmp: real;
begin
repeat
writeln('Введите x, y: '); readln(x, y);
until(x <> y);
if(x > y) then begin
tmp := y;
y := (x + y) / 2;
x := 2*(x * tmp);
writeln('Большее - X = ', x, ' Меньшее - Y = ', y);
end else begin
tmp := x;
x := (x + y) / 2;
y := 2*(tmp * y);
writeln('Большее - Y = ', y, ' Меньшее - X = ', x);
end;
end.