Написать алгоритм программы в виде блок-схемы :
1. Меньшее из двух заданных чисел возведите в квадрат, а большее уменьшите в 2 раза.Если числа равно, то найдите их сумму.
2. Даны 2 переменные А и В. Если A>B, то вывести на печать их произведение, в противном случае сумму
x(2)=x(1)+1,
x(3)=x(2)+2,
...
x(n)=x(n-1)+n-1
В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp.
Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp новым значением.
var i,k,kp:integer;
begin
kp:=1;
for i:=1 to 10 do begin
k:=kp+i-1;
kp:=k;
writeln(k:5, k*k:6, k*k*k:8);
end;
end.