Помогите срочно! пожалуйста! даю 100 баллов var
begin
write ('введите значения n и m' );
readln (n, m);
for i := m to n do
write ( '(*)' );
write ('*' );
end.
a) При m=1 n=5
begin
write ('введите значения n и m' );
readln (n, m);
for i := m to n do
write ( '(*)' );
write ('*' );
end.
a) При m=1 n=5
More Questions From This User See All