Предмет: Информатика,
автор: Арадия
Плиз помогите срочно. Составить программу, которая создает и выводит на экран массив такого вида:
0000000
1000001
1100011
1110111
1100011
1000001
0000000
Ответы
Автор ответа:
0
Program asd;
USES crt;
Const n=7;
VAR A:array [1..n,1..n] of integer;
i,j,q,w:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to n do
begin
if((j<i)and(j<n-i+1))or((j>n-i+1)and(j>i)) then a[i,j]:=1
else a[i,j]:=0;
write(a[i,j]);
end;
Writeln
end;
END.
Интересное задание) заставило подумать
USES crt;
Const n=7;
VAR A:array [1..n,1..n] of integer;
i,j,q,w:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to n do
begin
if((j<i)and(j<n-i+1))or((j>n-i+1)and(j>i)) then a[i,j]:=1
else a[i,j]:=0;
write(a[i,j]);
end;
Writeln
end;
END.
Интересное задание) заставило подумать
Автор ответа:
0
Пример в Excel для длины слова от 5 до 40
Код программы можно посмотреть нажав Alt+F11
Код программы можно посмотреть нажав Alt+F11
Приложения:
Похожие вопросы
Предмет: Математика,
автор: annasimonova153
Предмет: Химия,
автор: Аноним
Предмет: Математика,
автор: ilyakind37
Предмет: Математика,
автор: det85
Предмет: Химия,
автор: upstream98