var begin write ( введите значения n и m ); readln - вопрос №17632401 от kamilakruvetka 08.09.2020 13:48

Question

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

kamilakruvetka · 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