Ответ:
1.
var a,n,k,i:integer;
begin
write('Введите основание степени (целое число) ');
readln(a);
write('Введите показатель степени (целое число) ');
readln(n);
k:=1;
i:=0;
while i < n do
begin
k:=k*a;
i:=i+1
end;
writeln(a,'^',n,' = ',k)
end.
2.
var a,n,k,i:integer;
begin
write('Введите основание степени (целое число) ');
readln(a);
write('Введите показатель степени (целое число) ');
readln(n);
k:=1;
for i:= 1 to n do k:=k*a;
writeln(a,'^',n,' = ',k)
end.
Логическая структура любого алгоритма может быть представлена, как комбинация трех базовых структур.
1. следование или линейная структура;
2. ветвление или разветвляющаяся структура;
3. цикл или циклическая структура.
В алгоритме Евклида поиска НОД, все три они есть. Хотя на вашем рисунке и нет блока цикла, но он выражен неявно, с помощью оператора безусловного перехода (в Паскале, например, это оператор - goto метка).
Правило нахождения НОД двух натуральных чисел A и B у вас написано в условии задания. НОД(A,B)= НОД(min(A,B), |A-B|). Это "звучит" так: НОД двух натуральных чисел A и B равен НОДу двух других натуральных чисел. Первое число - разность (большего и меньшего), второе - меньшее из начальных чисел: НОД(A,B) = НОД(B,A-B) если A>B (или НОД(A,B) = НОД(A,B-A) если A<B)
Напишу с объяснением:
n = 3;
s = 0 + 6 = 6;
n = 4;
s = 6 + 8 = 14;
n = 5;
s = 14 + 10 = 24;
n = 6;
s = 24 + 12 = 36;
n = 7
s = 36 + 14 = 50.
1) - винчестер
2) - память