Question

Как нарисовать букву "и" в паскале например uses crt; var i,j: byte; begin clrscr; for i: =1 to 7 do begin gotoxy(1,i); write('*'); gotoxy(11,i); write('*'); end; gotoxy(2,4); for i: =1 to 9 do write('*'); readln end. это буква "н" ! а мне нужно "и"

Answer 1

Uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 7 do
begin
gotoXY(1,i);
write('*');
gotoXY(7,i);
write('*');
end;
for i:=1 to 5 do
begin
gotoXY(1+i,7-i);
write('*');
end;
readln;
end.