Надо вычислить дробь a*d / b*c = m / n
1. Инициализация переменных a, b, c, d
2. Вычисление значения m = a*d
3. Вычисление значения n = b*c
4. Вычисление значения m / n
Данный алгоритм вычисления дроби является линейным, так как каждое действие идет прямо за предыдущим. Ничто никуда не перескакивает.
Также можно привести пример из реальной жизни: Для приготовления бутерброда мы вначале:
1. отрезаем 1 ломтик хлеба
2. потом отрезаем колбасу, сыр, лук
3. Намазываем хлеб маслом
4. Выкладываем сверху колбасу, сыр, лук
5. Бутер готов
Объяснение:
1) var
a,s:integer;
begin
writeln('введите a');
readln(a);
repeat
if a mod 2 =0 then s:=s+a mod 10;
a:= a div 10;
until a=0;
writeln('сумма четных цифр числа а=',s);
end.
2)var a,b,i,r:integer;
begin
r:=1;
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
if (a mod 2 =0) and (b mod 2 = 0) then for i:=1 to b do r:=r*a;
if (a mod 2 =1) and (b mod 2 = 1) then for i:=1 to a do r:=r*b;
if ((a mod 2 =0) and (b mod 2 = 0)) or ((a mod 2 =1) and (b mod 2 = 1))
then writeln(r);
end.