Решение приведено в файле приложенном ниже!!!!программа тестировалась и работает
1) m:=54; n:=16
m=n? Нет ⇒ m>n? Да ⇒ m:=m-n (54-16=38)
Ответ: m=38
2) Циклический алгоритм
a:=1; b:=0;
b=4? Нет ⇒ b:=b+1 (1); a:=2*a (2);
b=4? Нет ⇒ b:=b+1 (2); a:=2*a (4);
b=4? Нет ⇒ b:=b+1 (3); a:=2*a (8);
b=4? Нет ⇒ b:=b+1 (4); a:=2*a (16);
b=4? Да.
Ответ: а=16; b=4
Var a:array[1..1000] of integer;
<span>sum,n,i:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>writeln('Введите количество чисел'); </span>
<span>read(n); </span>
<span>writeln('Введите числа'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if (a[i] mod 7=0) and (a[i] mod 10=4)then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма элементов кратных 7 и оканчиваюшихся на 4 = ',sum); </span>
<span>end.</span>