Odpowiedzi

Najlepsza Odpowiedź!
2010-02-23T15:41:26+01:00
Ad.1

Program bal;
uses CRT;
var
i,n: integer;
begin
Clrscr;
Writeln('Podaj n:');
readln(n);
writeln;
for i := 1 to 100 do
if i mod n = 0 then
write(i,', ');
readln;
end.

Ad.2

Program bal;
uses CRT;
var
i,n,j: integer;
begin
Clrscr;
Writeln('Podaj wysokosc:');
readln(n);
clrscr;
for i := 1 to n do
begin
for j := 1 to i do
write('*');
writeln;
end;
readln;
end.


Co do choinki nie jestem pewien czy o taka Ci chodziło, gdyby nie o taką to napisz na PM i przerobię tak jak chcesz.