Question

Написать программу на языке Pascal.

Answer 1

Var m,n:integer;

Begin

Writeln('Введите значения переменных m и n');

Readln(n,m);

While m>6 do (насчёт записи вайла неуверена, подправьте, если я допустила ошибку)

Begin

m:=m-2;

n:=n*2;

End;

Writeln('n = ', n,' m = ', m);

End.


Всё, но правильное оформление while проверьте сами, я могла ошибиться