Ответы
Ответ дал:
0
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 проверьте сами, я могла ошибиться
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 проверьте сами, я могла ошибиться
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад