#include <iostream>
using namespace std;
int main()
{
int a, b;
cout << "Enter the dividend and divisor: " << endl;
cin >> a >> b;
if (b == 0) {
cout << "You are mistaken. The divisor can not be zero." << endl;
cin >> b;
} else {
cout << "Result: " << (double)a / b << endl;
}
return 0;
}
<em>var</em>
<em> a, b, c : integer;</em>
<em> </em>
<em>begin</em>
<em> write('введите a ');</em>
<em> readln(a);</em>
<em> write('введите b ');</em>
<em> readln(b);</em>
<em> write('введите c ');</em>
<em> readln(c);</em>
<em> writeln((sqr(a)+sqr(b)+sqr(c))/sqrt(max(a, max(b, c))));</em>
<em>end.</em>
протестировано в PascalABC.Net
Я уж не силен в этой программе
но вот вроде должно получиться<span>
</span><span>var
a, b : array [1..16] of Integer;
begin
for var i := 1 to 16 do
a[i] := ReadLnInteger('a[' + i + '] =');
WriteLn('Массив A = ', a);
b := a;
Swap(b[2], b[5]);
Swap(b[4], b[9]);
Swap(b[7], b[15]);
Swap(b[9], b[16]); // повторяем обмен 9, если что?
WriteLn('Массив B = ', b);
end.</span>
Var i, h, res: integer;
begin
write('H = ');
readln(h);
res:=1;
for i:=1 to h do
res:=res*i;
writeln(h, '! = ', res);
<span>end.</span>