var begin write ( введите значения n и m ); readln - вопрос №17632903 от Ромзэс1 23.11.2022 19:16

Question

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

Ромзэс1 · 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