вывести на экран ряд чисел 1/3, 3/6, 5/9...(12 чисел)
Answers & Comments
HRAshton
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.
0 votes Thanks 0
nikki16
спасибо конечно большое, но у меня такое не примут.
HRAshton
А какое примут? Можно хоть сколько решений сделать)
Answers & Comments
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.