درست شد
program p1;
uses crt;
var i,b:integer;
begin
i:=0;
while (i<=5) do
begin
i:=(i+1);
write(i:5);
b:= (i*i);
write (b:5);
end;
readkey;
end.
---------- Post added at 02:30 PM ---------- Previous post was at 01:24 PM ----------
این برنامه ستاره ها رو در دو خط چاپ میکنه ولی در خط دوم بین سه تا ستاره فاصله میذاره من می خوام فقط از سمت چپ صفحه سه تا فاصله باشه و ستاره ها بدون فاصله باشن کدوم قسمت رو باید تصحیح کنم؟
program p1;
uses crt;
var i: integer;
var a: char;
begin
a:= '*';
writeln (a:5);
for i:= 1 to 3 do
begin
write (a:4);
end;
readkey;
end.
[COLOR="Silver"]