var begin write ( введите значения n и m ); readln - вопрос №17632569 от Еккуш63шшк83оагш7гв 20.03.2022 07:48

Question

Информатика: var begin write ( введите значения n и m ); readln (n, m); for i := m to n do write ( (*) ); write ( * ); end. a) При m=1 n=5

Еккуш63шшк83оагш7гв · Answer

Решение представлено во вложении.

Примечание: в разделе Var необходимо объявить переменные n, m типа integer. Также необходимо объявить переменную i для цикла.

var begin write ('введите значения n и m' ); readln (n, m); for i := m to n do write ( '(*)' ); write ('*' ); end. a) При m=1 n=5