Перечислите известные вам формы записи алгоритмов

1) словесный
2) графический 
3) програмный

10. a = 1     b = 1       или      a = 2     b = 2

11. a = 48

12. повторение какого-либо действия    iteratio     латинский язык

Объяснение:

10.

условный оператор

если условие: сумма а + b * 3 чётная верно, то вывод Да

сумма двух нечетных чисел - четное число:

а - нечетное число

b * 3 - нечетное число

произведение двух нечетных чисел - нечетное число:

b - нечетное число

3 - нечетное число

следовательно a и b любые нечетные числа

или

сумма двух четных чисел - четное число:

а - четное число

b * 3 - четное число

произведение четного и нечетного чисел - четное число:

b - четное число

3 - нечетное число

следовательно a и b любые четные числа

11.

цикл должен выполниться 4 раза

пока условия: а - четное и а > 5 верно, то выполняется действие а = a div 2

div - целочисленное деление (без остатка)

1 div 2 = 0   (остаток 1 не учитывается)

2 div 2 = 1   (остаток 0 не учитывается)

3 div 2 = 1   (остаток 1 не учитывается)

минимальное целое число, которое соответствует условию а - четное и а > 5 это а = 6

значит после выполнения действия а = a div 2 = 6 div 2 = 3

при а = 3 условие а - четное и а > 5 станет ложным и цикл закончится

заменим действие  а = a div 2 на обратное  а = a * 2

а = 3

а = a * 2 = 3 * 2 = 6 (условие а - четное и а > 5 верно)

а = a * 2 = 6 * 2 = 12 (условие а - четное и а > 5 верно)

а = a * 2 = 12 * 2 = 24 (условие а - четное и а > 5 верно)

а = a * 2 = 24 * 2 = 48 (условие а - четное и а > 5 верно)

так как цикл должен выполниться 4 раза, то а = 48

12. Итерация (лат. iteratio "повторение") - повторение какого-либо действия. Итерация в программировании - один шаг циклического процесса.

1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;   
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then 
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;   
B: Array[1..100] of integer;   
C: Array[1..100] of integer;   
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(A[i]); 
end;
Writeln('Вводится второй массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(B[i]); 
end;
For i:=1 to s do  begin   
If A[i]>B[i] then C[i]:=A[i]     
else C[i]:=B[i];   
If C[i] mod 2=1 then h:=h+1;   
If C[i] mod 2=0 then g:=g+1; 
end; 
Writeln('Количество нечётных элементов в массиве:',h); 
Writeln('Количество чётных элементов в массиве:',g);
end.