Между числами 6 и 49 разместить 5 чисел на равном расстоянии и вывести весь ряд на экран. Paskal ABC

Question

Информатика

Игнатий

28 августа, 20:58

Между числами 6 и 49 разместить 5 чисел на равном расстоянии и вывести весь ряд на экран. Paskal ABC

+3

Ответы (1)

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

Мишаня · Answer 1

Program z; {a1=6, d=}const n=7; var a:array[1 ... n] of real; a1, i:integer; d:real; begina1:=6; d: = (49-6) / 7; for i:=1 to n do begina[i]:=a1 + (i-1) * d; writeln (a[i]:3) ; end;

end.