===== PascalABC.NET =====
begin
var (a, b, k) := ReadInteger3('Введи a, b, k:');
loop k do
Println(int64(a) * b)
end.
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
var (a, b, k) := ReadInteger3('Введи a, b, k:');
loop k do
Println(int64(a) * b)
end.
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.