паскаль как вывести
1
*
3
*
5
*
место которых чисел которое делятся на 2 ставим * итак до 30

Ответ:

Объяснение:

var i:integer;

begin

for i:=1 to 30 do begin

if i mod 2 = 0 then begin

writeln('*');

end

else

writeln(i);

end;

end.