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

Question

Информатика

Лаврен

5 сентября, 16:03

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

+1

Ответы (1)

Знаете ответ на вопрос?

Олежка · Answer 1

Program one;

uses crt;

var

a, b: integer;

begin

writeln ('введите число') ;

read (b) ;

for a:=1 to 10 do

writeln ('произведение = ', a*b) ;

end.