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

Question

Информатика

Сакердон

10 февраля, 17:47

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

+3

Ответы (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.