Question

Напишите программу на Паскале, чтобы решать третье задание. 20 баллов. Надо использовать while

Answer 1

Program first;
Var a,k,x,y,n,i:integer;
begin
readln(a,x,k);
n:=0;
while n<k do
begin
y:=a*x;
writeln(y,'   ',x);
n:=n+1;
end;

end.

Пробуй ,вроде бы должно работать