A) вычислить произведение двух чисел не используя знак умножения. б) вычислить степень числа. за решение лучшую оценку !

 

  вычислить произведение двух чисел не используя знак умножения.

тогда можно суммировать то есть допустим 2*3 это 2+2+2   3 раза

  5*12=12+12+12+12+12   5 раз

 

 

 

 

  вычислить степень числа

  например 2^5=2*2*2*2*2 пять раз 

 

 

 

Сделайте замену переменных с условиями. program asd; uses crt; const n=4; var a: array[1..n,1..n]  of integer; i,j,s: integer; begin сlrscr; randomize; for i: =1 to n do   begin   for j: =1 to n do  begin  a[i,j]: =abs(random(2)-1);   write(a[i,j]: 4); end; writeln; end; writeln;   for i: =1 to n do   begin  for j: =1 to n do  begin    if a[i,j]=0 then a[i,j]: =1    else    a[i,j]: =0;     write(a[i,j]: 4);   end;   writeln;   end; end.

1) uses crt; const g=9.82; var h,t: real; begin clrscr; write ('h='); readln (h); t: =sqrt(2*h/g); writeln ('t=',t: 5: 2); end. 2) uses crt; var h,a,b,s: real; begin clrscr; write ('h='); readln (h); write ('a='); readln (a); write ('b='); readln (b); s: =1/2*(a+b)*h; writeln ('s=',s: 5: 2); end. 3) uses crt; const n=8; var i: integer; ch: array [1..n] of char; begin clrscr; for i: =1 to n do readln (ch[i]); writeln (); for i: =1 to n do writeln (ch[i]); end. 4) uses crt; var a,b,r: real; begin clrscr; write ('a='); readln (a); write ('b='); readln (b); r: =b; r: =a; a: =b; writeln ('a=',a); writeln ('b=',r); end.