Найти произведение чисел от 1 до 10

Найти произведение чисел от 1 до 10
Гость
Ответ(ы) на вопрос:
Гость
program one; uses crt; var a,b: integer; begin writeln('введите число'); read(b); for a:=1 to 10 do writeln('произведение =',a*b); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы