Question

помогите срочно! пожалуйста! даю 100 баллов

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

Answer 1

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

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