вывести на экран ряд чисел 1/3, 3/6, 5/9 ... (12 чисел)

Question

Информатика

Дмитрий

19 ноября, 13:52

вывести на экран ряд чисел 1/3, 3/6, 5/9 ... (12 чисел)

+2

Ответы (1)

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

Павел · Answer 1

Var i, j, k: integer;

begin

j : = 1;

k : = 3;

while (i < 12) do

begin

writeln (j, '/', k, '=', j/k:1:3) ;

j : = j + 2;

k : = k + 3;

inc (i) ;

end;

end.