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.

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

Answer 2

Программа не рабочая, если я не ошибаюсь. Тем более, все, что я увидел не рабочее сразу - написано "while nk". Может быть не понимаю чего нибудь. Цикл не работает, вроде бы. Либо же, я снова не понял как он должен работать.

Answer 3

Ну по блок схеме я написал код ,всё как там