uses crt;
Var
i, j, g, m, n, s, t, k: Integer;
Begin
clrscr;
Write('Введите n: ');
ReadLn(n);
s := 0;
t := n;
k := 0;
For i := 1 To n Do
Begin
inc(k);
WriteLn;
inc(s);
for m := 1 to t do
begin
Write(' ');
end;
dec(t);
if (k < 3) then
begin
For j := 1 to k Do
Begin
Write('* ');
End;
end;
if (k >= 3) and (k<n) then
begin
write('* ');
For g := 1 to k-2 do
begin
write(' ');
end;
write('*');
end;
if (k = n) then
begin
for g := 1 to n do
begin
write('* ');
end;
end;
End;
ReadLn;
End.
uses crt;
var n,i,j:integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
for j:=1 to 2*n-1 do
begin
if odd(n)and(j>=(n-i+1))and(j<=(n+i-1)) and not (odd(i+j))
then write('*')
else if not odd(n)and(j>=(n-i+1))and(j<=(n+i-1)) and (odd(i+j))
then write('*')
else if (i=n)and(odd(j))and(odd(i+j))
then write('*')
else write(' ')
end;
writeln;
end;
readln
end.
Похожие записи/страницы:
- Пусть даны три числа.Если они могут быть длинами сторон треугольника, определите его…
- Даны три вещественных числа x,y,z. Определить, существует ли треугольник с длинами сторон x,y,z. Если…
- С клавиатуры вводится число n. Нужно вывести n строчек треугольника паскаля - Pascal(Паскаль)
- Определить, существует ли треугольник с заданными длинами сторон x, y, z Pascal(Паскаль)
- Напишите программу, которая вводит с клавиатуры десятичное натуральное число и выводит на экран все десятичные…
- 1)дано натуральное число, удалить все цифры А (А вводится с клавиатуры)2)найти все числа от 1 до 200,у которых…
- Даны координаты трёх вершин треугольника, нужно проверить является ли треугольник равнобедренным - Pascal(Паскаль)
- С помощью клавиатуры вводится 3 числа : a , b ,c . Если существует треугольник с такими сторонами ,то определить…