Question

Даны целые числа a,b,k, вывести на экран k раз произведение чисел a и b​

Answer 1

===== PascalABC.NET =====

begin

 var (a, b, k) := ReadInteger3('Введи a, b, k:');

 loop k do

   Println(int64(a) * b)

end.

Answer 2

var

  a,b,k: integer;

Begin

Write('a = ');Read(a);

Write('b = ');Read(b);

Write('k = ');Read(k);

For k := 1 to k do

 WriteLn(a*b);

End.