..........................
program primer_1;
var a, b:integer;
begin
a:=10;
b:=2;
writeln('(a*a+b)*a/b=',(a*a+b)*a/b);
end.
1) 4 раза
2) 6 раз
3) В - сумма первых 100 натуральных чисел
Program g;
var A,B,C: real;
begin
readln(A);
C:=A; // А в степени 1
B:=A*A; // А в степени 2
A:=B*B; // А в степени 4
A:=A*B*C; // А в степени 1 на 2 на 4 = А в степени 7
writeln(A);
end.
<em>var i:integer;</em>
<em>begin</em>
<em> for i:=1 to 10 do</em>
<em> writeln ('Sellsaccount Sellsaccountov');</em>
<span><em>end.</em></span>