var begin write ( введите значения n и m ); readln - вопрос №17632001 от neush 08.08.2022 16:16

Question

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

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