Лабораторная работа №6
Организация вводавывода”
Вариант – 14
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков, стр. 170)
Автор: SlavikS
Program Lab_07;{Risovanie figuri}
{
123456
22 5
3 3 4
4 4 3
5 52
654321
Ubeditelnaya prosba xot` nemnogo menyat` isxodnii text programmi,
vsetaki prepoda odni i tege, mogut pridrat`sya :))
}
const
r=' ';
var
z,n,i:integer;
begin
n:=5;
z:=1;
Writeln('+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+');
Writeln;Writeln;
write(r);
while z begin
Write (z);
z:=z+1;
end;
Writeln;
for i:=2 to n do
writeln (r,i,i:(i-1),'':(5-i),7-i);
write(r);
while z>=2 do
begin
z:=z-1;
write (z);
end;
writeln;Writeln;Writeln;
Writeln(' _ _ _ _ _');
Writeln;Writeln('HajmiTe [Enter] (c)_S');
Readln;
end.