Предмет: Информатика,
автор: AlexGood46
Написать программу на языке Pascal.
Приложения:

Ответы
Автор ответа:
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 проверьте сами, я могла ошибиться
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 проверьте сами, я могла ошибиться
Похожие вопросы
Предмет: Русский язык,
автор: Lion11110
Предмет: Обществознание,
автор: anubis2043
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: nomirrorlook
Предмет: Математика,
автор: оТЛИЧНИЦА55445544555