Вывести на экран массив чисел первый элемент которого равен м в котором каждый следующий элемент больше предыдущего на к числа м и к вводятся с клавиатуры

Question

Валент

20 августа, 10:35

+5

Ответы (1)

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

Семенка · Answer 1

Var k, m:real;

begin

readln (m) ;

readln (k) ;

for var i:=0 to 20 do write ('[', m+i*k,'] ') ;

end.