Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Задача #12
программа "АВС Паскаль"

Ответ оставил Гость

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.