Вывести на экран ряд чисел 1/3, 3/6, 5/9...(12 чисел)
Вывести на экран ряд чисел 1/3, 3/6, 5/9...(12 чисел)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы