var begin write ( введите значения n и m ); readln - вопрос №17632903 от asdx1984 31.07.2020 04:05

Question

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

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