1) В котором действия выполняются последовательно одна за одной
2) Цикл может выполнятся несколько раз
3) Розгалудження - условия при которых выполняется определенный фрагмент кола. То есть if else
4) 1. if(если). if(a==10) writeLine (a) если условие верно - действие выполняется иначе данный код игнорируется. такое называется "Неповне розгалудження"
2. if(если) else(иначе). if(a==10) writeLine (a) else writeLine (b) - если условие верно код выполняется иначе выполняется другой код.
Такое называется "Повнеповне розгалудження"
5) Характерне наявнистю умовы та послидовнистю команд в залежности вид умовы.
6) Линейный выполняется последовательно, а розгалудження дает возможность выбрать какой код будет выполнятся, а какой нет.
7) Розгалудження дает возможность выбрать какой код будет выполнятся, а какой нет. А цикл выполняет код определенное количество раз
Объяснение:
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.