Предмет: Информатика,
автор: khasanovaalina1
Задача #12
программа "АВС Паскаль"
Приложения:
Ответы
Автор ответа:
0
program zadan1;
uses crt;
var
x,y,z,i,j: integer;
begin
writeln;
for z:=1 to 4 do begin
for x:=1 to 4 do begin
writeln;
for y:=1 to 8 do
write('**** '); end;
for i:=1 to 4 do begin
writeln;
for j:=1 to 8 do
write(' ****');
end; end;
end.
uses crt;
var
x,y,z,i,j: integer;
begin
writeln;
for z:=1 to 4 do begin
for x:=1 to 4 do begin
writeln;
for y:=1 to 8 do
write('**** '); end;
for i:=1 to 4 do begin
writeln;
for j:=1 to 8 do
write(' ****');
end; end;
end.
Интересные вопросы
Предмет: Другие предметы,
автор: vavulinnikita
Предмет: Английский язык,
автор: kinezarinka
Предмет: Українська мова,
автор: lviktorialap
Предмет: Обществознание,
автор: donetsnastya1
Предмет: Биология,
автор: TheKrishtop